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O BANDIDO DE UM BRAÇO SÓ (2) 


Numa poeirenta rua de uma cidade do velho oes- 
te, você caminha lentamente para um duelo ao pôr- 
do-sol. Seu adversário só tem um braço, mas é 
mais rápido no gatilho do que Billy the Kid. Viva 
as emoções de um duelo como esse, jogando com 
UNSCRCAMIQUBIS scores densrarer ese ra ndcsada 881 


MENSAGENS SECRETAS 


Agora, você está num país estranho, cercado de 
espiões de uma potência inimiga. Mas não fique de- 
sesperado: aprenda a criar seus próprios códigos 
secretos e entre para a história das mensagens ci- 
NAAS escassa anos ceara a 888 





ARMAZENAGEM DE NÚMEROS 


Expoentes. Como são armazenados os números. 
Ponto flutuante e números negativos. A função 
INSTR. PEEK na memória. Dicas para economti- 
zar espaço na memória. Efeitos estranhos. Forma- 
tação com PRINT USING ...................... 894 


Im 
uy 
Im 





Ny 
lh 


O) 
n 


| rm 
A 


Mae 


No 


ed 

pa 

== 
= 


um 


a 


s 
z 
— 
z 

— 

a 
pe 


| 


IM 


| 


| 


N 
NM 
MAM 


RD 


VA W VAO UERR DDETRA TO 
: ; 


n 
À 
Ma AMA a VARA NO 


k 
O 


MA WO w 


PLANO DA OBRA | 

INPUT é uma obra editada em fascículos semanais, e cada conjunto de 
15 fascículos compõe um volume. A capa para encadernação de cada vo- 
lume estará à venda oportunamente. 


FERIAS, VIAGENS, MUDANÇAS... 

NÃO FIQUE COM A COLEÇÃO INCOMPLETA 

Se você está saindo de férias, pretende viajar ou vai se ausentar por algum 
tempo, avise antecipadamente seu jornaleiro. Ele pode guardar os seus fas- 
cículos enquanto você estiver fora. Se, por qualquer motivo, você perdeu 
alguns números, peça-os também a seu jornaleiro, ou entre em contato 
com nossa Distribuidora: 


1. Pessoalmente — Em São Paulo, os endereços são: Rua Brigadeiro To- 
bias, 773, Centro, telefone 227-4188; Av. Industrial, 117, Santo André, 
telefone 449-0411, das 7h30 às 17h00 - dias úteis. No Rio de Janeiro, 
Av. Mem de Sá, 191/193, Centro, telefone (021) 222-7422, das 7h30 
às 17h00 - dias úteis. 

2. Por carta — Envie para: 
DINAP — Distribuidora Nacional de Publicações 
Números Atrasados 
Estrada Velha de Osasco, 132 — Jardim Teresa 
CEP 06040 — Osasco — SP 

3. Por telex — Utilize o nº (11) 33 670 DNAP. 


Em Portugal, os pedidos devem ser feitos à Distribuidora Jardim de Pu- 
blicações Lda. — Qta. Pau Varais, Azinhaga de Fetais, 2685, Camarate, 
Lisboa; Apartado 57; Telex 43 069 JARLIS P. 

Atenção: Após seis meses do encerramento da coleção, o atendimento dos 
pedidos dependerá da disponibilidade do estoque. 

Obs.: Quando pedir livros, mencione sempre o título e/ou o autor da obra, 
além do número da edição. 


COLABORE CONOSCO 

Encaminhe seus comentários, críticas, sugestões ou reclamações ao 
SERVIÇO DE ATENDIMENTO AO LEITOR 

Caixa Postal 9 442, São Paulo — SP. 
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= COMPLETE SEU JOGO 

CAÇA-NÍQUEIS 
Ooo. A ROTINA PRINCIPAL 
E GIRE AS RODINHAS 
E | OS RESULTADOS PREMIADOS 


Depois de completar o jogo com esta 
segunda parte, puxe a manivela 

e tente obter três frutas iguais no 
caça-níqueis. Esse resultado 

pagará vinte vezes a sua aposta. 


Segunda e última parte do nosso jo- 
go caça-niqueis, este artigo nos coloca 
em condições de executar todo o progra- 
ma, cujo primeiro segmento você já de- 
ve ter gravado. 





APERTEM OS CINTOS 


210 LET HOLD=0 
220 LET TOTAL=TOTAL-10: LET NU 
DGE=0: PRINT AT 13,26; INK 2;" 
230 IF HELAG=0 THEN LET HOLD= 
0 
240 FOR I=1 TO 3: FOR J=1 TO 
12: SOUND .001,60 
250 IF HOLD=0 THEN PRINT AT 7 
JIO:FASCJ)JGAT 7, 15;BS(J)!:AT 7, 
20;CS(J);AT 10,10;AS(J+1);AT 
10,15;BS(J+1);AT 10,20;C5(J+1) 
AT 13,10;AS(J+2);AT 13,15;B5( 
J+2);AT 13,20;C8(J+2): NEXT J: 
NEXT I 
270 IF HOLD=1 THEN PRINT AT 7 
(15;BS(J);AT 7,20;CS(J);AT 10, 
15:BS(J+1);AT 10,20;CS(J+1); 
AT 13,15;BS(J+2);AT 13,20:C5(J 
+2): NEXT J: NEXT 1 
280 IF HOLD=6 THEN PRINT AT 7 
(15;B$(J);AT 10,15;B$(J+1);AT 
13,15:;BS(J+2): NEXT J: NEXT I 
290 IF HOLD=2 THEN PRINT AT 7 
VIOFAS(J);AT 7,20;C5(J);AT 10, 
10O;AS(J+1);AT 10,20;CS(J+1);AT 
13, 10;AS(J+2);AT 13,20;C5(J+2) 
: NEXT J: NEXT 1 
300 IF HOLD=5 THEN PRINT AT 7 
LO;AS(J);AT 10,10;AS(J+1);AT 
13, 10;AS(J+2): NEXT J: NEXT I 
310 IF HOLD=3 THEN PRINT AT 7 
(IO;FAS(JJ;AT 7, 15;BS(J);AT 10, 
10:;:AS(J+1):;AT 10,15;BS(J+1);AT 
13, 10;AS(J+2) ;AT 13,15;BS(J+2 
): NEXT J: NEXT 1 
320 IF HOLD<>1 AND HOLD<>4 AND 
HOLD<>6 THEN LET M=INT (RND* 
12): IF M=0 THEN LET M=1 
330 IF HOLD<>2 AND HOLD<>S AND 












HOLD<>4 THEN LET K=INT (AND* 
12): IF K=0 THEN LET K=l 

340 IF HOLD<>3 AND HOLD<>5 AND 
HOLD<>6 THEN LET L=INT (RND* 
12): IF L=0 THEN LET L=l 

350 LET HOLD=0 

360 PRINT AT 7Z,1IO;AS(M)J;AT 7, 
IS:BS(K);AT 7,20;C5S(L);AT 10, 
10:;AS(M+1);AT 10,13;B5(K+1);AT 
10,20:;CS(L+1);AT 13,10;AS(M+2) 
“AT 13,15;BS(K+2);AT 13,20;€S( 
L+2) 


A linha 210 coloca zero na variável 
que segura uma ou mais rodas, que po- 
dem ser escolhidas através do teclado. 
A rotina verifica qual é o conteúdo des- 
sa variável e faz com que se movimen- 
tem as rodas que estão livres. 

Depois de girar as rodas, a rotina re- 
| coloca zero em HOLD na linha 350 — 
os botões que seguram as rodas são apa- 
gados — e, em seguida, a linha 360 
incumbe-se de desenhá-las em sua posi- 
ção final, paradas. 


VERIFIQUE O RESULTADO 


370 GOSUB 510 
510 LET TS=AS(M)+BS (K)+CS(L) 











520 LET L$S=AS (M+1)+BS (K+1)+C3( 
L+1) 

530 LET L$=AS (M+2) +BS (K+2)+C5S( 
L+2) 

540 GOSUB 660 

550 RETURN 

680 LET TEMP=TOTAL 

690 IF MS( TO 4)=MS(5 TO 8) 
AND MS( TO 4)=MS(9 TO ) THEN 
LET TOTAL=TOTAL+50: IF MS( TO 
4)=CS(4) THEN LET TOTAL=TOTAL 
+5000: GOTO 640 


700 IF MS( TO 4)=CS(1) AND MSC 
TO 4)=MS(5 TO 8) AND MS( TO 4) 
=M8(9 TO ) THEN LET TOTAL=TOT 
AL+50 
710 IF M$( TO 4)=C5(3) AND MS( 
TO 4)=MS(5 TO 8) AND MS( TO 4) 
=M$(9 TO ) THEN LET TOTAL=TOT 
AL+50 
720 IF MS( TO 4)=AS(3) THEN 
LET TOTAL=TOTAL+IO: IF M$(5 TO 
8B)=AS(3) THEN LET TOTAL=TOTA 
L+10 


730 IF TOTAL>TEMP THEN FOR I= 
1 TO 6: SOUND .05,50: NEXT 1 
740 LET DD=INT (TOTAL/100): 
LET CC=TOTAL-(DD*100): PRINT 


INK 2; PAPER 6;AT 17,0;"5 

"AT 18B,0:"TC "; PAPER 7; 
BRIGHT 1:;AT 17,1;”" ";DD;AT 18, 
1;” "Co 


750 IF TOTAL<X1 THEN GOTO 760 
760 RETURN 


A linha 370 salta para a sub-rotina da 
linha 510, que coloca as três linhas mos- 
tradas pelas rodas nas variáveis alfanu- 
méricas T$, M$ e L$. A linha do meio, 
MS, é a que vale para fins de contagem 
de pontos. 

A sub-rotina que faz isso começa na 
linha 680. Ela verifica se ocorreu, em al- 
gum lugar, uma linha premiada, e so- 
ma o valor do prêmio ao patrimônio 
acumulado pelo jogador. 









COMO DAR UM EMPURRÃOZINHO 


380 IF M<7 OR K=L OR L>2 THEN 
LET NUDGE=1: PRINT BRIGHT 1; 
PAPER 7; INK Z;AT 13,26;"NUDGE 


390 LET HFLAG=INT (BND+.5): IF 
HFLAG=1 THEN FOR I=1 TO 19 
STEP 5: PRINT AT 16,1; INK 6; 
BRIGHT 1;"HOLD”";: NEXT I 
400 IF INKEYS<>"" THEN GOTO 
400 
410 LET IS=INKEYS: 
THEN GOTO 410 
420 IF 18=" " THEN FOR 1=9 TO 
19 STEP 5: PRINT INK 2Z;AT 16, 
Sim ": NEXT I: GOTO 210 
430 IF I8="E” AND NUDGE=1 THEN 
GOSUB 600: LET NUDGE=0: PRINT 
AT 13,26; INK 2;” ”": SOUND 
1,30: GOSUB 510: LET BN=INT ( 
RND*10): IF INT (BN/2)=RN/2 
AND HFLAG<>1 THEN LET NUDGE=1 
+ PRINT AT 13,26; INK 7; 
BRIGHT 1;"NUDGE”: GOTO 400 
440 IF 18="Q0" AND NUDGE=1 THEN 
GOSUB 560: LET NUDGE=D: PRINT 
AT 13,26; INK 2;* "+ SOUND 
.1,30: GOSUB 510: LET RBN=INT ( 
RND*10): IF INT (RN/2)=RN/2 
AND RN<3 THEN LET NUDGE=1: 
PRINT AT 13,26; INK 7; BRIGHT 
1; "NUDGE”: GOTO 400 
450 IF 198="W” AND NUDGE=1 THEN 
GOSUB 580: LET NUDGE=0: PRINT 
AT 13,26; INK 2;* "+ SOUND 
.1,30: GOSUB 510 


TF 1$="" 





460 IF I5="D” AND NUDGE=1] THEN 
GOSUB 620: LET NUDGE=O0: PRINT 
AT 13,26; INK 2;” ": SOUND 
.1,30: GOSUB 510: LET ERN=INT ( 
RND*10): IF INT (RN/2)<>BN/2 
THEN LET NUDGE=1: PRINT AT 13 
,26; INK 7; BRIGHT 1;"NUDGE”: 
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GgoTo 400 

470 IF 18="S8" AND NUDGE=1 THEN 
GOSUB 660: LET NUDGE=0: PRINT 
AT 13,26; INK 2;" ": SOUND 
1,30: GOSUB 510: LET RN=INT ( 


RND*10): IF INT (RN/2) =RN/2 


THEN LET NUDGE=1: PRINT AT 13 
,26; INK 7; BRIGHT 1;"NUDGE"”: 

Goto 400 

4BO IF I$="A” AND NUDGE=1 THEN 
GOSUB 640: LET NUDGE=0: PRINT 
AT 13,26; INK 2;" "+ SOUND 
.1,30: GOSUB 510: LET RN=INT ( 
RND*10): IF INT (RN/2)<>RN/2 
AND RN>6 THEN LET NUDGE=1: 
PRINT AT 13,26; INK 7; BRIGHT 
1; "NUDGE”: GOTO 400 

490 IF HFLAG=1 AND 18="1" OR 1 
$="2" OR 1$="3" OR 18="4" OR 1 
Se"5” OR 18="6”" THEN LET HOLD 
=VAL IS: FOR I=1 TO 19 STEP 5: 
PRINT AT 16,1; INK 2;" vs 
NEXT I: GOTO 220 

500 GgoTo 400 

S60 LET M=M+1: IF M>12 THEN 
LET M=M-12 

570 PRINT AT 7, 10;AS(M);AT 10, 
LO;AS(M+1):;AT 13,10;AS(M+2): 
RETURN 

580 LET K=K+1: IF K>12 THEN 
LET K=K-12 

590 PRINT AT 7,15;BS(K);AT 10, 
15:BS(K+1);AT 13,15;B5(K+2): 
RETURN 

600 LET L=L+1: IF L>12 THEN 
LET L=L-12 


610 PRINT AT 7,20;C5S(L)J;AT 10, 
Z0;CS(L+1);AT 13,20;C5(L+2): 
RETURN 

620 LET L=L-1l: IF L<l THEN 
LET L=L+12 

630 PRINT AT 7,20;CS(L)J;AT 10, 
20;CS(L+1);AT 13,20:C5(L+2): 
RETURN 

640 LET M=M-1: IF M<1l THEN 
LET M=M+12 

650 PRINT AT 7,10;AS(MJ;AT 10, 
LO;AS(M+I);AT 13,10;A3(M+2): 
RETURN 

660 LET K=K-1l: IF K<1l THEN 
LET K=K+12 

670 PRINT AT 7,15;BS(K)J;AT 10, 
15:BS(K+1) ;AT 13,15;BS(K+2): 
RETURN 





A rotina que empurra as rodas é mui- 
to semelhante âquela que as segura. As 
rodas são movimentadas para cima ou 
para baixo conforme a escolha do joga- 
dor. As teclas que empurram as rodas 
são mostradas na tela. A cada empur- 
rão, um número aleatório é usado para 
determinar se o jogador poderá recor- 
rer novamente a essa função. 





RAPA-TUDO 


760 CLS PRINT AT 10,0;” 
FIM DE JOGO Vo 





CE PERDEU TODO SEU DINHEIRO”: 
SOUND 1 ' -20 
800 PRINT '* 
R (S/N) ?* 
810 IF INKEYS="" THEN GOTO 
810 

B20 LET IS=INKEYS: IF 158="S" 
OR 18="s” THEN RUN 


QUER RECOMECA 


B30 STOP 
B40 CLS : PRINT AT 10,0;” 
PARABENS ! Vo 


CE ACABA DE GANHAR O PREMIO.”: 
PRINT '” VOCE ESTA 5500,00 MA 
IS RICO !”": FOR J=1 TO 3: FOR 
I=1 TO 10: SOUND .01,5*1: NEXT 
1: NEXT J 

B50 GOTO 800 


A rotina da linha 760 oferece ao 
usuário a oportunidade de disputar mais 
um jogo. Ela é chamada quando o jo- 
gador fica sem dinheiro. 

A rotina que cuida do prêmio máxi- 
mo — três sinos — dá as boas novas ao 
jogador e soma $500 ao seu score. Nes- 
se caso, a partida termina, pois a banca 
foi quebrada. O jogador pode, então, 
jogar outra vez. 


o 4 ARES e 


A ROTINA PRINCIPAL 







3580 M=100:H=-1:1=-1:J=-1: P=RND( 
16)-1:0=RND(16)-1:R=RND(16)-1 
360 SCREEN 1:GOSUB 1000:GOSUB 2 
000:GOSUB 2500:IF M>O THEN 360 
370 CLS: PRINT 6€6101:"YOU RAN OUT 
OF MONEY” 

380 PRINT 6417," <SPACE> PARA R 
ECOMECAR" 

390 IF INKEYS<>”" ”" THEN 390 ELS 
E RUN 

















A linha 350 estabelece o valor do pri- 
meiro cacife em dólar. Ela também acer- 
ta os valores iniciais das variáveis que 
indicam se alguma roda está presa, as- 
sim como das variáveis que controlam 
a posição das rodas. A linha 360, laço 
principal do programa, chama ordena- 
damente as sub-rotinas que giram as ro- 
das, desenham as frutas na tela e per- 
mitem ao jogador apostar, segurar e em- 
purrar as rodas. 

Se o jogador ficar sem dinheiro, a li- 
nha 370 terminará o jogo e oferecerá ao 
usuário a oportunidade de disputar ou- 
tra partida. 


FRUTAS NA TELA 





500 ON CH+1 GOTO 540,530,560,55 
0,570,510,520 

510 PUT(XX,YY)-(XX+31, YY+15),B, 
PSET: RETURN 

520 PUT(XX, YY)-(XX+31,YY+15),C, 
PSET:RETURN 

530 PUT(XX,YY)-(XX+31,YY+15),A, 
PSET:RETURN 

540 PUT(XX, YY)-(XK+31,YY+15),BR 
| PSET: RETURN 

550 PUT(XX,YY)-(KX+31,YY+15),5, 
PSET:RETURN 

560 PUT(XX,YY)-(XX+31,YY+15),PL 
, PSET: RETURN 

570 PUT(XX, YY)-(XX+31,YY+15),P, 
PSET: RETURN 

1000 M=M-10:FOR L=1 TO RND(3)+R 
ND (3) 
1010 
1020 
1030 
1040 
1050 
1060 
1070 
1080 
1090 
1100 
1110 


IF H GOSUB 1520 

IF I GOSUB 1530 

IF J GOSUB 1540 

NEXT:IF H THEN SOUND 100,1 
FOR L=1 TO AND(3) +RND(3) 
IF I GOSUB 1530 

IF J GOSUB 1540 

NEXT:IF I THEN SOUND 120,1 
FOR L=1 TO RND(3) +RND(3) 
IF J GOSUB 1540 

NEXT:IF J THEN SOUAD 140,1 

1120 H=-1:1=-1:J=-1:RETURN 

1500 CLS:IF D=0 THEN RETURN ELS 

E PRINT 8166,USING"CREDITO= 5S5t 
14.44" ;M/100:FOR A=10 TO D STEP 
10:M=M+10: PRINT €166, USING"CRE 

DITO= 5S5444.44";M/100 

1510 SOUND 200,1:FOR B=0 TO 400 
“NEXT B,A:RETURN 

1520 P=(P-1) AND 15:XX=48:YY=28 
“FOR G=P-1 TO P+1:CH=R1(15 AND 

G) :GOSUB 500:YY=YY+32:NEXT:RETU 

RN 

1530 Q=(Q-1) AND 15:XX=112:YY=2 
B:FOR G=Q-1 TO Q+1:CH=R2(15 AND 
G) :GOSUB 500:YY=YY+32:NEXT:RET 


URN 

1540 R=(R-1) AND 15:XX=176:YY=2 
8:FOR G=R-1 TO R+1:CH=R3(15 AND 
G) :GOSUB 500:YY=YY+32:NEXT:RET 
URN 

1550 C=9:IF (RI(P)=R2(0)) AND(R 
2(Q)=R3(R)) THEN C=R1 (P) : RETURN 
1560 IF RI(P)=RZ2(Q) AND (R1I(P)= 





6 OR R1(P)=5) THEN C=1+RI(P):RE 
TURN 

1570 IF R1(P)=6 THEN C=8 

1580 RETURN 


As linhas 500 a 570 usam PUT para 
desenhar as frutas na tela. As linhas 
1000 a 1120 giram as rodas, chamando 
as sub-rotinas das linhas 1520 a 1540. As 
linhas 1150 a 1180 acusam um resulta- 
do premiado e a linha 1500 soma o prê- 
mio às posses do jogador. 


APOSTAR, SEGURAR, EMPURRAR 


2000 GOSUB 1550 

2010 IF C=9 OR C=0 THEN D=W(C): 
GOSUB 1500:RETURN 

2020 CLS9-C: PRINT €265,"apostar 


"; : PRINTE278, USING "SSt. dt "WC 
C)/100; 
2030 PLAY "L4T20B": PRINT €212,U 


SING"SS4.4t ";W(C-1)/100;:PRINT 
8340, STRINGS (7,271-C*16); 

2040 PLAY"T20C”": PRINT 6212, STRI 
NGS (7,271-C*16);:PRINT €340,USI 
NG" 894.44 ";W(C+1)/100; 
2050 RS$=INKEYS:IF RS$<>" 
S<>CHRS (13) THEN 2030 
2060 IF R$=CHR$ (13) THEN CLS:D= 

W(C) :GOSUB 1500:RETURN 

2070 IF RND(2)=1 THEN CLS:D=W(C 

+1) :GOSUB 1500:RETURN 

2080 C=C-1:IF C=0 THEN D=200:GO0 
SUB 1500:RETURN 

2090 GoTo 2020 

2500 IF RND(4)=1 GOSUB 3060:G0T 
O: 2550 

2510 IF RND(5)<3 THEN 2560 

2520 FOR K=1l TO 2000:NEXT: SCREE 

N 1,0 

2530 AS=INKEYS:IF AS<>" 
S<>"C” THEN 2530 

2540 IF A$=" ” THEN RETURN 

2550 CLS: PRINT 6166, USING"CREDI 
TO= sSS444.44";M/100:GOTO 2520 
2560 SCREEN 1,0:H=-1:I=-1:J=-1 
2570 IF H THEN PUT(38,122)-(91, 
143) ,H,NOT 

2580 IF I THEN PUT(102,122)-(15 
5,143),H,NOT 

2590 IF J THEN PUT(166,122)-(21 
9,143),H,NOT 

2600 RS=INKEYS:IF R5=" * THEN F 

OR K=0 TO 2:PUT(38+64*K,122)-(9 
1+64*K,143),H, PSET:NEXT:RETURN 
3000 IF R$<"1” OR R$>"4” THEN 2 
570 

3010 ON VAL (RS) GOTO 3020,3030, 
3040,3050 

3020 H=-1:1=-1:J=-1:GOTO 2570 
3030 H=0:PUT(38,122)-(91,143),H 
|, PSET:GOTO 2570 

3040 I=0:PUT(102,122)-(155,143) 
1H, PSET:GOTO 2570 

3050 J=0:PUT(166,122)-(219,143) 
3060 SCREEN 1,0:COLOR 4,2:PUT(1 
59,156)-(224,170),H,NOT:PLAY"L4 
OT1O” 

3070 K=1 

3080 LINE (10+K*16,158)-(21+K*16 


* AND R 


" AND À 
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+ 169) , PRESET, BF 

3090 IF INKEYS=" " THEN 3120 
3100 K=K+1: PLAY STRS$S(K*2) :IF K< 
6 THEN 3080 

3110 FOR K=1 TO 5:LINE(ILO+K*16, 
158)-(21+K*16,169), PSET,BF:NEXKT 
:GOTO 3070 

3120 N=kK:PUT(159,156)-(224,170) 
+H,NOT 

3130 AR$=INKEYS:IF(RS$<"5" OR R$S> 
"9”") AND R$<>"0" THEN 3130 

3140 IF R$="0" THEN R$="10º 
3150 ON VAL (R$)-4 GOTO 3160,317 
0,3180,3190,3200,3210 


3160 P=P+2:GOSUB 1520:GOTO 3220 
3170 Q=0+2:GOSUB 1530:GOTO 3220 
3180 R=R+2:GOSUB 1540:GOTO 3220 
3190 GOSUB 1520:GOTO 3220 

3200 GOSUB 1530:GOTO 3220 

3210 GOSUB 1540 

3220 SOUND 40,1:GOSUB 1550:IF € 


<9 GOSUB 2010:N=0:GOTO 3250 
3230 IF N=1 THEN N=0:GOTO 3250 
3240 LINE(10+N*16,158)-(Z1+N*16 
1,169), PSET,BF:N=N-1:GOTO 3130 
3250 FOR K=1 TO 5:LINE(1LO0+K*16, 
158) - (21+K*16, 169), PSET,BF:NEXT 
: RETURN 


As linhas 2010 a 2050 permitem que 
o jogador faça a sua aposta. Ele pode 
então melhorar o prêmio que recebeu 
anteriormente (ou, na pior das hipote- 
ses, perder parte dele). 

A rotina que segura as rodas 
encontra-se entre as linhas 2530 e 3050, 
sendo chamada da linha 2510. Os indi- 
cadores que definem a liberdade das ro- 
das são modificados de acordo com as 
teclas apertadas pelo jogador. 

As linhas 3060 a 3250 permitem que 
o jogador empurre uma das rodas, 
movendo-a uma posição para cima ou 
para baixo. O número de movimentos 
oferecidos é selecionado ao acaso na li- 
nha 2500. A rotina detecta as teclas se- 
lecionadas, movendo as rodas de acor- 
do com cada uma delas. 


o essa fBiad id 





A ROTINA PRINCIPAL 


1160 FOR I=1 TO 2000:NEXT 

1200 R=RND(-TIME) :M=100:H=-1:T= 
-L:J=-1:P=INT(RND(1)*15) :Q=INT( 

RND(1)*15) :R=INT(RND(1)*15) 
1210 LOCATE 0,22:PRINT STRINGS( 
30,32); :GOSUB 1400:GOSUB 2000:G 

OSUB 2500:1IF M>O AND M<5000 THE 

N 1210 

1215 IF M>=5000 THEN CLS:LOCATE 
0,11:PRINT "RAPA TUDO E ESTOUR 

A A BANCA" :GOTO 1230 

1220 LOCATE 0,22:PRINT "SEU DIN 
HEIRO ACABOU ti 
1230 LOCATE 0,23:PRINT "APERTE 

>ESPACO P/ REPETIR”; 

1240 IF INKEYS<>” ” THEN 1240 E | 

LSE RUN 











A linha 1200 estabelece o valor de um 
dólar para o primeiro cacife e acerta os 
valores iniciais das variáveis que indicam 
se alguma das rodas está presa, assim 
como das variáveis que controlam a po- 
sição das rodas. A linha 1210 é o laço 
principal do programa. Ela chama or- 
denadamente as sub-rotinas que giram 
as rodas, desenham as frutas na tela e 
permitem ao jogador apostar, segurar e 
empurrar as rodas. O gerador de núme- 
ras randômicos também é acertado nes- 
sa linha. 

Se o jogador ficar sem dinheiro, a li- 
nha 1220 concluirá o jogo e dará ao 
usuário a oportunidade de jogar nova- 
mente. Quando existirem três sinos na 
linha correspondente ao meio das rodas, 
haverá o estorno da banca é o jogo tam- 
bém terá chegado ao fim, agora com a 
vitória do jogador. 


FRUTAS NA TELA 





1300 VPOKE BASE(5)+YY,C1L:VPOKE 
BASE (5) +Y7Y+1,C2:RETURN 
1400 M=M-10:GOSUB 4000:FOR L=1 
TO INT (AND(1)*3+1)*INT(RND(1)*3 
+1) 
1405 IF H THEN GOSUB 1520 
1410 IF XI THEN GOSUB 1530 

1415 IF J THEN GOSUB 1540 
1420 NEXT 

1425 FOR L=1 TO INT(BND(1)*3+1) 
*INT (BND(1)*3+1) 

1430 IF 1 THEN GOSUB 1530 
1435 IF J THEN GOSUB 1540 

1440 NEXT 

1450 FOR L=1 TO INT(BND(1)*3+1) 
*INT (AND (1)*3+1) 

1455 IF J THEN GOSUB 1540 

1460 NEXT 

1470 FOR L=B8 TO 10:SOUND L,0O:NE 
XT:H=-]:1=-1:J=-1 

1480 RETURN 

1500 IF D=0 THEN RETURN ELSE M= 
M+D 
1510 RETURN 
1520 P=(P-=1)AND15S:YY=235:FOR G= 
P-1 TO P+l:CI=A(I5ANDG,1) :C2=A( 
15ANDG,2) :GOSUB 1300:YY=TY+96:N 
EXT: RETURN 
1530 Q=(Q-1)ANDI5S:YY=239:FOR Gm 
0-1 TO 0+1:Cl=B(15ANDG,1) :C2=B( 
15ANDG,2) :GOSUB 1300:YY=YY+96:N 
EXT: RETURN 
1540 R=(R-1) AND15:YY=243:FOR G= 
R-1 TO B+1:ClI=C(15ANDG,1):C2=C( 
15ANDG, 2) :GOSUB 1300:YY=YY+96:N 
EXT: RETURN 
1550 D=0 
1551 IF A(P,1)=136 THEN D=10 
1552 IF A(P,1)=B(Q,1) AND A(P,] 
)=136 THEN D=20:RETURN 
1553 IF NOT(A(P,1)=B(Q,1) AND B 
(0,1)=C(R,1)) THEN RETURN 
1554 A=A(P,1) 
1556 IF A=120 THEN D=50 

1557 IF A=184 THEN D=50 





1558 IF A=216 THEN D=50 

1559 IF A=152 THEN D=100 

1560 IF A=168 THEN D=100 

1561 IF A=200 THEN M=M+5000:G0T 
o 1215 

1570 RETURN 


A linha 1300 usa o comando VPO- 
KE para desenhar as frutas na tela. As 
linhas que vão de 1400 a 1480 giram as 
rodas chamando as sub-rotinas das Ji- 
nhas 1520 a 1540. 

As linhas 1550 a 1570, por sua vez, 
verificam se houve um resultado premia- 
do e a linha 1500, finalmente, soma o 
prêmio às posses do jogador. 


“EMPURRAR E SEGURAR AS RODAS 


2000 GOSUB 1550:G0SUB 1500:GOSU 
B 2550:RETURN 

2500 IF INT(ARND(1)*4+1)=1 THEN 
GOSUB 3060:GOSUB 2550:GOTO 2530 
2510 IF INT(AND(1)*5+1)<3 THEN 
2560 

2530 AS=INKEYS:IF AS<>" * THEN 
2530 

2540 RETURN 

2550 M9=STAS(M) :LOCATE 2,15:PRI 
NT RIGHTS (M$,2);:LOCATE 2,14:PR 
INT ” ";:IF M>=100THEN LOCATE 
2,14:PRINT LEFTS(MS,2);: RETURN 
2555 RETURN 

2560 H=-1:1=-1:J=-1:LOCATE 4,22 
PRINT "PODE SEGURAR AS RODAS” 
2600 AS=INKEYS:IF (R$<"1"º OR R$ 
>"6") AND n$8<>” " THEN 2560 
3000 IF R$=" " THEN RETURN 

3010 ON VAL (R$) GOTO 3020,3025, 
3030,3035,3040,3045 

3020 H=0:GOTO 3050 

3025 I=0:GoTO 3050 

3030 J=0:G0TO 3050 

3035 H=0:1=0:GOTO 3050 

3040 J=0:I=0:GOTO 3050 

3045 J=0:H=0 

3050 RETURN 

3060 LOCATE 3,22:PRINT "PODE EM 
PURRAR AS RODAS" 

3070 N=INT(AND(1)*5+1) 

3080 RS=INKEYS: IF R$="" THEN 30 
Bo 

3100 IF 
3110 IF 
3120 IF 
3130 IF 
3140 IF R$="S” 
3150 IF R$="D" 
3155 GOTO 3080 
3160 P=P+2:GOSUB 1520:GOTO 3220 
3170 0=0+2:GOSUB 1530:G0TO 3220 
3180 R=R+2:GOSUB 1540:GOTO 3220 
3190 GOSUB 1520:G0T0O 3220 

3200 GOSUB 1530:G0T0O 3220 

3210 GOSUB 1540 

3220 GOSUB 1550:IF D>0 THEN GOS 
UB 2000:N=0:GOTO 3250 

3230 IF N=1 THEN N=0:GOTO 3250 
3240 N=N-1:GOTO 3080 

3250 LOCATE 0,22:PRINT STRINGS( 
30,32); : RETURN 


3160 
3170 
3180 
3190 
3200 
3210 


THEN 
THEN 
THEN 
THEN 
THEN 
THEN 


R$="Q" 
RS$-"W"” 
RS-"E” 
RS="A" 


A rotina que segura as rodas está en- 
tre as linhas 2560 e 3050, sendo chama- 
da a partir da linha 2510, Os indicado- 
res que revelam se as rodas estão livres 
são modificados conforme as teclas 
apertadas pelo jogador. 

As linhas que vão de 3060 a 3250 per- 
mitem que o jogador empurre uma das 
rodas, movendo-a uma posição para ci- 
ma ou para baixo. O número de empur- 
rões oferecidos é selecionado ao acaso 
na linha 3070. A rotina detecta as teclas 
selecionadas, movendo as rodas de acor- 
do com cada uma delas. 


EFEITOS SONOROS 





A rotina situada na linha 4000 acer- 
ta os valores dos registros do chip so- 
noro do MSX para simular o ruído de 
rodas em movimento. 


4000 RESTORE 4030:FOR 
4010 READ A:SOUND L,A 
4020 NEXT 

4030 DATA 0,9,15 

4040 DATA 42,0,12,16,100,5,12 
4050 RETURN 


o E 


300 GOSUB 700: GOSUB 4000: G0S 
UB 310: GOSUB 780: GOTO 1000 
1000 M = 1:H = 1:I = 1:J = 1:P 
- INT ( RND (1) * 16):0 = INT 
( BND (1) * 16):R = INT ( RND 
(1) * 16) 
1010 POKE - 16299,0: POKE - 
16304,0: GOSUB 1300: GOSUB 2000 
» GOSUR 2500: IF M > O THEN 101 


L=4 TO 13 





O 

1020 TEXT : HOME VTAB 20: PR 
INT "SEU DINHEIRO ACABOU” 

1030 PRINT "APERTE A BARRA DE 

ESPAÇO”: PRINT "PARA JOGAR NOVA 

MENTE” 

1040 GET AS: 
RUN 

1050 GoTO 1040 

1200 HCOLOR= 0: DRAW 15 AT XX, 
YY: DRAW 15 AT XX + B,YY: DRAW 
15 AT XX,YY + 4: DRAW 15 AT XkK 
+ BIT +A4 

1205 ON CH + 1 GOTO 1240,1230, 
1260,1250,1270,1210,1220 

1210 HCOLOR= 3: DRAW 7 AT XX,7Y 
Y: DRAW 8 AT XX + 7,YY: RETURN 
1220 HCOLOR= 3: DRAW 5 AT XX,Y 
Y: DRAW 6 AT XX + 7,YY: RETURN 
1230 HCOLOR= 7: DRAW 13 AT XX, 
Yy: DRAW 14 AT XX + 7,YY: RETUR 
N 

1240 HCOLOR= 3: DRAW 3 AT XX,Y 
Y: DRAW 4 AT XX + B,YY: RETURN 


IF AS = *" * THEN 


1250 HCOLOR= 3: DRAW 1 AT XX + 
1,YY: DRAW 2 AT XX + 8,YY: RET 

URN 

1260 HCOLOR= 7: DRAW 11 AT XX, 


YY: DRAW 12 AT XX + 7,YY: RETUR 
N 








1270 HCOLOR= 3: DRAW 9 AT XX + 
1,YY: DRAW 10 AT XX + B,YY: RE 
TURN 


1300 M=M- .1: FORL = 14 TO 


INT (3 * BND (1) + 1) + INT ( 

3 * BND (1) + 1) 

1310 IF H THEN GOSUB 1520:X = 
PEEK ( - 16336) 

1320 IF I THEN GOSUB 1530:X = 
PEEK ( - 16336) 

1330 IF J THEN GOSUB 1540:X = 
PEEK ( - 16336) 

1340 NEXT : IF H THEN CALL - 
198 

1350 FOR L =1TO INT(3Y* AR 

ND (1) + 1) + INT (3 * BND (1 

3 + 2) 

1360 IF I THEN GOSUB 1530:X = 
PEEK ( - 16336) 

1370 IF J THEN GOSUB 1540:X = 
PEEK ( - 16336) 

1380 NEXT : IF I THEN CALL - 
198 

1390 FORL = 1 TO INT(3%* KR 

ND (1) + 1) + INT (3 * RND (1 

) d) 

1400 IF J THEN GOSUB 1540:X = 


PEEK ( - 16336) 


1410 NEXT : IF J THEN CALL - 
198 
1420 H = 1:1I = 1:J = 1: RETURN 
1500 IF D = O THEN RETURN 
1505 HOME : TEXT : VTAB 20:M = 
M + D: PRINT "CREDITO: 8";M 
1510 FOR B = O TO 400: NEXT : 
RETURN 


1520 P = P - 1:XX = 80:7Y = 90: 
IF P = = 1 TREN P = 15 
1522 FORG=P-1TOP+hl: T 


FG = - 1 THEN CH = Rl(15S): GO 
To 1525 
1523 IF G = 16 THEN CH = R1(0) 


: GOTO 1525 
1524 CH = RA(G) 


1525 GOSUB 1200:YY = YY + 20: 
NEXT : RETURN 

1530 O = Q - 1:XX = 128:YY = 90 
+ IFOQO= -17THENÇE= IS 

1532 FORG=-Q-1TOQ+I: TI 
FE G = = 1 THEN CH = R2(15): GO 
TO 1535 

1533 IF G = 16 THEN CH = RZ2(0;) 
- GOTO 1535 

1534 CH = R2(G) 

1535 GOSUB 1200:YY = YY + 20: 
NEXT : RETURN 


1540 R = R- 1:XX = 174:YY = 90 
: IF R= - 1 THEN R = 15 


1542 FORG=R-1TORA+1I:1 


FG = - 1 THEN CH = R3(15): GO 
TO 1545 
1543 IF G = 16 THEN CH = R3(0) 


+ GOTO 1545 

1544 CH = R3(G) 

1545 GOSUB 1200:YY = TY + 20: 

NEXT : RETURN 

1550 C = 9: IF (RI(P) = R2(0)) 

AND (RZ2(0) = R3(R)) THEN € = R1 
(P): RETURN 

1560 IF RI(P) 

P) = 6 OR R1(P) 
+ RI(P): RETURN 


= R2(0) AND (RIC 
- 5) THEN € = 1 


1570 IF RI(P) = 6 THEN C = B 
1580 RETURN 

2000 GOSUB 1550 

2010 IF C=90RC= O THENHD 
= W(C): GOSUB 1500: RETURN 

2020 HOME : TEXT : VTAB 20: PR 
INT "PREMIO = S":;W(C) 


2030 PRINT "QUER APOSTAR 7 
2050 PRINT *<ESPACO>"; TAB( 20 
);"APOSTA": PRINT "<RETURN?2"; T 
AB( 20);"RECOLHE O PREMIO” 

2055 GET AS: IF AS < >" AN 
D AS < > CHRS (13) THEN 2020 


2060 IF AS = CHRS (13) THEN 
HOME :D = W(C): GOSUB 1500: RET 
URN 

2070 IF INT (2 * BND (1) + 1 


) = 2 THEN HOME :D = W(C + 1): 
GOSUB 1500: RETURN 
2080 C=C- 1: IF C=OTHENOD 


= 2: GOSUB 1500: RETURN 

2090 GoTo 2020 

2500 IF INT (4 * BND (1) + 1 
) = 1 THEN GOSUB 3060: GOTO 25 
50 
2510 IF INT (5 * RND (1) + 1 
) < 3 THEN 2560 
2530 GET AS; IF AS < > "Cº TH 
EN RETURN 

2550 HOME : TEXT : VTAR 20: PR 
INT "CREDITO = S$";M: GOTO 2530 
2560 H = 1:1 = 1:J = 1 
2565 HOME : TEXT 

2570 IF NOT H THEN VTAB 20: 
HTAB 10: PRINT "HOLD"; 
2580 IF NOT I THEN VTAB 20: 
HTAB 20: PRINT “HOLD”; 
2590 IF NOT J THEN VTAB 20: 
HTAB 30: PRINT "HOLD"; 
2595 VTAB 22: HTAR 1: PRINT “UV 


OCE PODE PRENDER AS RODAS”; 


2597 FOR K = 1 TO 4000: NEXT : 
POKE - 16299,0: POKE - 16304 
0: FOR K = 1 TO 4000: NEXT : P 
OKE - 16300,0: POKE - 16303,0 
2600 GET AS: IF AS =" * THEN 
VTAB 20: PRINT ”" ”: RETURN 
3000 IF AS < "1º ORAS > "4" T 
HEN 2570 
3010 ON VAL (AS) GOTO 3020,30 


30,3040,3050 

3020 H = 1:1I = 1:J= 1:60T02565 
3030 H = O: GOTO 2565 

3040 I = O: GOTO 2565 

3050 J = O: GOTO 2565 


3060 HOME : TEXT : VTAB 22: PR 
INT "PODE EMPURRAR AS RODAS”";: 
GET AS 

3070 N = INT (5 * BND (1) + 1 
) 

3080 POKE - 16299,0: POKE - 
16304,0: GET AS: IF (AS < "5" O 
RAS > "9”") AND AS < > "0" THE 
N 3060 

3140 IF AS = "0" THEN AS = "10 
3150 ON VAL (A$) - 4 GOTO 316 
0,3170,3180,3190,3200,3210 

3160 P = P + 2: GOSUB 1520:X = 


PEEK ( - 16336): GOTO 3220 
3170 Q = Q + 2: GOSUB 1530:X = 
PEEK ( - 16336): GOTO 3220 


3180 R = R + 2: GOSUB 1540:X = 
PEEK ( - 16336): GOTO 3220 


3190 GOSUB 1520:X = PEEK ( - 
16336): GOTO 3220 
3200 GOSUB 1530:X = PEEK ( - 
16336): GOTO 3220 
3210 GOSUB 1540 


3220 GOSUB 1550: IF €C < 9 THEN 
GOSUB 2010:N = O: GOTO 3250 


3230 IF N= 1 THENN= O: GOTO 
3080 

3240 N = N- 1: GOTO 3080 

3250 RETURN 


A linha 1000 estabelece que o valor 
do cacife inicial é um dólar. Ela também 
acerta os valores iniciais das variáveis 
que indicam se alguma roda está presa, 
assim como das variáveis que controlam 
a posição das rodas. A linha 1010, laço 
principal do programa, chama ordena- 
damente as sub-rotinas que giram as ro- 
das, desenham as frutas na tela e per- 
mitem ao jogador apostar, segurar e em- 
purrar as rodas. 

Se o jogador ficar sem dinheiro, a hi- 
nha 1020 terminará o jogo, permitindo- 
lhe jogar novamente. 

As linhas 1200 a 1270 usam DRAW 
para desenhar as frutas na tela. As li- 
nhas 1300 a 1420 giram as rodas, cha- 
mando as sub-rotinas das linhas 1520 a 
1540. As linhas 1550 a 1580 acusam um 
resultado premiado e a 1500 soma o prê- 
mio às posses do jogador. 

As linhas 2010 a 2050 permitem que 
o jogador aposte. Este pode então me- 
lhorar o prêmio que recebeu (ou perder 
parte dele). A rotina que segura as ro- 
das se encontra entre as linhas 2530 e 
3050, sendo chamada a partir da linha 
2510. Os indicadores que revelam se as 
rodas podem girar livremente são mo- 
dificados conforme as teclas apertadas 
pelo jogador. 

As linhas 3060 a 3250 possibilitam ao 
jogador empurrar uma das rodas, 
movendo-a uma posição para cima ou 
para baixo. O número de empurrões 
oferecidos é selecionado ao acaso na li- 
nha 2500. A rotina detecta as teclas se- 
lecionadas, movendo as rodas de acor- 
do com cada uma destas. 


[| 


Para funcionar no TK-2000, o progra- 
ma precisa de algumas modificações. 

Elimine todos os POKE — 16299,0 e 
POKE — 16304,0. Substitua os coman- 
dos HOMETEXT — sempre que apare- 
cerem assim juntos — por GOSUB 5000. 

Acrescente ainda as linhas: 


5000 FOR K = 160 TO 191 
5010 HCOLOR= O 

5020 HPLOT 0,K TO 279,K 
5030 NEXT : RETURN 














"MENSAGENS 





SECRETAS 








Embora sem saber, a maioria das 
pessoas usa códigos para comunicar-se 
em seu dia-a-dia. Assim, quando alguém 
pede um sapato número 39 ou fala de 
um microprocessador Z80, está empre- 
gando um código. Do mesmo modo, um 
cientista nuclear usa equações muito 
complicadas, que, na verdade, não pas- 
sam de códigos, para simplificar a repre- 
sentação de fenômenos complexos. Nós 
poderiamos obter os mesmos resultados 
simplesmente descrevendo tais fenôme- 
nos por meio de palavras. No entanto, 
isso nos tomaria muito mais tempo. 

Nos exemplos citados, a preocupação 
maior consiste em facilitar a comunica- 
ção e não em esconder a informação 
transmitida. Os códigos podem também 
ser usados para economizar gastos ou 
espaços de armazenamento. Imagine- 
mos, por exemplo, uma companhia que 
realiza muitos contratos envolvendo 
cláusulas e parágrafos iguais. Se todos 
esses detalhes fossem guardados em fi- 
tas ou discos, economizariamos certa- 
mente muito espaço, codificando as par- 
tes que se repetem várias vezes. 

A ciência que estuda as mensagens se- 
cretas chama-se criptografia. Seu nome 
é formado a partir de duas palavras gre- 
gas — Kryptos (secreto) e graphos (es- 
crita) —, e refere-se tanto à escrita co- 
dificada quanto à cifrada. Os termos có- 
digo e cifra têm, na realidade, signifi- 
cado ligeiramente diferente no que diz 
respeito ao modo como a mensagem é 
transmitida. Quando a informação é co- 
municada letra por letra, dizemos que 
ela está cifrada. Quando uma ou mais 
palavras são transformadas em outro 
grupo de expressões ou de números, por 
intermédio de alguma espécie de dicio- 
nário, dizemos que ela está codificada. 
Na prática, o termo codificar é usado 
em ambos os casos. 





CÓDIGOS SECRETOS 


A codificação e decodificação de 
mensagens secretas já foram de uso res- 
trito dos militares, ou pelo menos dos 
Serviços de Inteligência. Hoje, porém, 
o uso de linhas públicas de telefone e de 
satélites para transmissão de informa- 
| ções confidenciais fez aumentar enorme- 


mente a necessidade dos códigos. 

Uma das primeiras aplicações impor- 
tantes dos computadores aconteceu du- 
rante a Segunda Guerra Mundial, quan- 
do equipamentos IBM foram utilizados 
pelos Aliados para decifrar mensagens 
em código do inimigo. Desde então, es- 
piões e contra-espiões das grandes po- 
tências têm acompanhado atentamente 
os avanços tecnológicos nesse campo. 

Atualmente, as possibilidades aber- 
tas pela computação são tantas que jo- 
vens pouco escrupulosos — denomina- 
dos hackers — ligam seus micros a re- 
des telefônicas e penetram facilmente 
em sistemas bancários e instalações mi- 
litares, quebrando códigos e alterando 
informações. 

Neste e no próximo artigo mostrare- 
mos como empregar o computador pa- 
ra criar mensagens em código secreto, 
recorrendo a diversos métodos que, co- 
mo cada tipo de espionagem, têm dife- 
rentes níveis de sofisticação. 

Mesmo não sendo um agente inter- 
nacional, você pode lançar mão desses 
métodos quando quiser enviar mensa- 
gens confidenciais a amigos que também 
tenham micros. E aqui vai um desafio. 
Neste artigo está escondida uma infor- 
mação codificada. Tente encontrá-la, 


CÓDIGOS DE POSIÇÃO 





Os símbolos mostrados nas telas de 
vídeo da página 889 parecem não ter sig- 
nificado algum, mas na realidade são 
exemplos de códigos de posição. Como 
o nome sugere, esse é um código basca- 
do na posição de um símbolo em rela- 
ção a um ponto dado. 

Esse tipo de código foi usado pela 
primeira vez há mais de 2000 anos por 
Lisandro, um almirante espartano que, 
durante uma das batalhas da Guerra do 
Peloponeso (travada entre as cidades 
gregas Esparta e Atenas), percebeu que, 
no cinto de um de seus escravos, a dis- 
tância dos furos até a fivela continha na 
realidade uma mensagem secreta, Des- 
de então, os códigos tornaram-se um 
dos recursos mais poderosos da chama- 
da ''arte de guerra”. 

Você pode usar um tipo de código de 
posição simplesmente escrevendo o al- 


1 To == Dm j —s ni: T ai | ma T di mi 
E | | 1 0 
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6 de junho de 1944: os acordes iniciais 
da Quinta Sinfonia de Beethoven 

dão o sinal para a invasão da Normandia 
pelos aliados, num dos casos 

mais famosos de mensagem em código. 


fabeto no alto de uma folha e colocan- 
do abaixo dele as distâncias recebidas, 
conforme mostram as figuras 1 e 2. Co- 
mo você tem a letra-chave na primeira 
linha, é fácil decifrar a mensagem. Pa- 
ra dificultar sua decodificação, basta fa- 
zer uma rotação nas letras-chave (veja 
a figura 3). Você pode, por exemplo, co- 
meçar com N e, quando chegar no Z, 
começar de novo com A. Isto é chama- 
do rotação cíclica. 

O primeiro programa usa esse méto- 
do para produzir uma versão codifica- 
da de seu texto — entretanto, não de- 
vem ser deixados espaços em branco en- 
tre as palavras. Se você quiser realmen- 
te enviar sua mensagem para alguém, 
vai precisar de uma impressora. 


Bico 














20 BORDER O: PAPER O: INK 7: 
CLS 

30 PRINT TAB 6;" Codigo de po 
gicao ": PRINT 

40 PRINT INK 2; PAPER 7; 
FLASH 1:;AT 6,10;” CUIDADO 7” 
: PRINT 

50 PRINT "Nao deixe espacos e 
ntre palavras” 

60 PRINT PRINT * Escre 


va em minusculas” 
70 INPUT "Qual a mensagem ?*' 
as 


BO FOR i=l TO 400: NEXT à: 


CLS 
90 FOR i=1 TO LEN (as) 
100 LET bS=asS(1) 





CÓDIGOS E CIFRAS 


A 
TOA CRIPTO 
E cÓDIGOS SECRETOS E 
SUAS APLICAÇÕES 
Fi 


COMO PRODUZIR SEUS 


110 LET v=CODE (b5$)-96 

120 IF v<=32 THEN PRINT TAB v 
» INK 6;"*”": GOTO 150 

130 LET v=v-2Z6 


140 PRINT TAB (v); 
L5S0O NEXT à 


INK 6;"*" 


20 CLS 

30 PRINT 66,"CODIGO DE DISTANCI 
A” 

40 PRINT €140,"CUIDADO” : PRINT 


50 PRINT"NAO DEIXE ESPACOS ENTR 4 


E PALAVRAS” 

60 PRINT:PRINT 

70 PRINT"QUAL A MENSAGEM 2”: INP 
UT AS 

BO FOR I=1l TO 600:NEXT:CLS 

90 FOR I=1 TO LEN(AS) 








A CRIPTOGRAFIA 


IT 


- PRÓPRIOS CÓDIGOS SECRETOS 


ui = = — 4 e —e nm = DER nar E 
RA TI ee— 


TO cÓDIGOS DE POSIÇÃO 
E ————cÓDIGO DE JÚLIO CESAR 
TOO CÓDIGO MORSE 





Código de posição com distância horizontal 





Código de posição com distância vertical 


100 B$=MIDS(AS,I,1) 

110 V=ASC(B$)-45 

120 IF V<=32 THEN PRINT TAB(V) 
"x" :GOTO 150 

130 V=V-26 

140 PRINT TAB(V)"*" 

150 NEXT 

20 CLS 


30 PRINT TAB(10) 
ição” : PRINT 

40 PRINT TAB(14) 
T 

50 PRINT TAB(4) "não deixe espa 
ço entre as palavras” 

60 PRINT:PRINT 

70 PRINT'qual a sua mensagem?”: 
INPUT AS 

B0 FOR I=1 TO 600:NEXT I:CLS 

90 FOR 1=1 TO LEN (AS) 

100 B5=MIDS(AS,I,1) 

110 V=ASC(BS)-45 

120 IF V<=32 THEN PRINT TAB(V)" 
*".GOTO 30 

130 V=V-26 


"código de pos 


"cuidado”:PRIN 








140 PRINT TAB(V)"*"” 
150 NEXT 1 


Lélio] 


5 HOME 

10 PRINT TAB( 9)"CODIGO DE DI 
STANCIA”: PRINT 

20 PRINT TAB( 14)"CUIDADO": P 
RINT 

30 PRINT 'TAB( 4)"NAO DEIXE ES 


PACO ENTRE AS PALAVRAS” 

40 PRINT PRINT 

50 PRINT "QUAL A SUA MENSAGEM 
": INPUT AS 

60 FORT =1 TO 600: NEXTJI: H 

OME 

70 . FOR T = 1 TO LEN (AS) 

B0 BS = MIDS (AS,T,1) 

90 V = ASC (BS) - 45 

100 IF V< = 32 THEN PRINT 

TAB( V)"*": GOTO 130 


110 V =V- 26 
120 PRINT: TAB( V)"*" 
130 NEXT 1 


Inicialmente, o programa descobre o 
valor ASCII de cada letra de seu texto, 
através do comando MIDS no laço que 
vai da linha 90 à linha 150 (130 no Ap- 
ple e no TK-2000). Uma vez que a men- 
sagem já foi convertida em uma série de 
números, é fácil fazer a codificação por 
meio de uma transformação linear. No 
caso do MSX, por exemplo, a letra que 
está na variável V será transformada na 
distância que é o seu valor em ASCII 
menos 26 (linha 130). O comando TAB 
imprimirá o asterisco na distância dese- 
jada, a partir do lado direito da tela (li- 
nha 120), e o processo de codificação es- 
tará pronto, 


COMO USAR O CÓDIGO 





Apesar de parecer demasiado simples 
para ser eficiente, o código de posição 
conta com vários fatores a seu favor. 
Em primeiro lugar, antes de decifrar um 
código, você deve verificar se ele real- 
mente existe. Isso porque, sendo cons- 
tituída de vários pontos (ou asteriscos) 
dispostos aparentemente de forma alea- 
tória sobre qualquer superfície, uma 
mensagem assim codificada facilmente 
passaria despercebida. Durante a Segun- 
da Guerra, aliás, esse truque foi usado 
por agentes de vários países. Assim, 
após uma inspeção mais cuidadosa na 
inocente fotografia de um quintal, 
descobriu-se que as estacas de um varal 
dispunham-se de maneira a formar uma 
mensagem secreta. 

Um modo de fazer com que o códi- 
go de posição fique mais difícil de ser 
quebrado é reestruturar o programa, 
tornando as letras-chave realmente alea- 
tórias. Sem essa alteração, um perito 
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3 
Cifra de Saint Cyr 


que saiba estar manipulando um códi- 
go de posição terá de tentar no máximo 
26 combinações antes de resolver o pro- 
blema. Se a ordem das letras for alea- 
tória, o número de combinações cresce- 
rá extraordinariamente. 


CIFRA DE SAINT CYR 





Na Antiguidade, os maiores criptó- 
grafos depois dos gregos foram os ro- 
manos. Júlio César, por exemplo, inven- 
tou um código no qual cada letra era 
substituída pela terceira letra que se lhe 
seguia no alfabeto. Nesse caso, o A 
torna-se D, o B torna-se E, e assim por 
diante. No fim do alfabeto, o X torna- 
seA,o Y,Beo Z é substituído pelo €, 
Usando esse método, a mensagem MI- 
NAR CAMPO LADO LESTE cifrada 
seria: - PLODU FDPSR ODGR 
OHVWH. 

Como você verá mais tarde, o códi- 
go criado por Júlio César é um caso es- 
pecial da chamada cifra de Saint Cyr e 
você poderá verificar aquela mensagem 
rodando o próximo programa e usando 
3333333 como número-chave. 

Com o fim do Império Romano, a 
criptografia passou por longo periodo 
de estagnação e, apesar do crescente uso 
de mensagens cifradas nos séculos XVI 
e XVII, só no século XIX a Academia 
Militar Francesa de Saint Cyr produziu 
inovações sobre o código de César. A ci- 
fra de Saint Cyr é constituída de uma 
segiiência de letras em ordem alfabéti- 
ca, abaixo da qual colocamos um alfa- 
beto, a partir de um ponto desejado. 
Nesse caso, cada letra do alfabeto de 
baixo terá sua correspondente na linha 
de cima. Assim, como mostra a ilustra- 
ção desta página, a palavra INPUT (na 
linha de baixo) seria cifrada como 
AFHML. Uma das vantagens da cifra 
de Saint Cyr é que podemos escolher um 
ponto de partida diferente para cifrar 
cada letra, bastando que o receptor co- 
nheça esses pontos. Isto o torna ainda 
mais difícil de ser decifrado. 


No programa Cifra de Saint Cyr 
incorporou-se a esse código um número- 
chave, a fim de conferir-lhe maior segu- 
rança. Mesmo que consiga ter acesso à 
listagem do programa, nenhum “es- 
pião" decifrará a mensagem, a menos 
que ele conheça o número secreto. 


20 BORDER O: 
CLS 

25 POKE 23658,8 

30 PRINT TAB B;"CIFRA 
YR”: PRINT 

40 PRINT INK 2; 
FLASH 1L;AT 6,10;” CUIDADO "” 
50 PRINT PRINT "Nao deixe e 
spacos entre palavras” 

60 PRINT : PRINT 

720 PRINT "*” 1 -> codificar” 
BO PRINT ” -1 -> decodificar” 
90 INPUT s 

INPUT "Qual a mensagem ?"' 


PAPER O: INK 7: 


DE ST.C 


PAPER 7; 


PAUSE 50: CLS 

120 INPUT "Qual o numero-chave 
? (7 digitos)"'n$ 

130 PAUSE 50: CLS 

140 FOR k=1 TO LEN as 

150 LET 1=k-INT (k/7)*7+1 

160 LET t=CODE (aS(k))+(as*VAL 
(n$(1))) 

170 IF t>90 OR t<65 THEN 
t=t-(9*26) 

180 PRINT CHBS (ft); 

190 NEXT k 


20 CLS 

30 PRINT €7,"CIFRA DE ST. CYR” 
40 PAINT €140,"CUIDADO”: PRINT 
50 PRINT"NAO DEIXE ESPACOS ENTR 
E PALAVRAS” 

60 PRINT:PRINT 

70 PRINT" < 1> PARA CODIFICAR” 
80 PRINT” <-1l> PARA DECODIFICAR 
90 INPUT 5 

100 INPUT"QUAL A MENSAGEM" ;AS 
110 FOR K=1 TO 1500:NEXT:CLS 
120 INPUT"QUAL O NUMERO CHAVE ( 
7 DIGITOS) ";NS 

130 FOR K=1 TO 1500:NEXT:CLS 
140 FOR K=1 TO LEN(AS) 

150 L=K-INT(K/7)*7+1 

160 T=ASC(MIDS(AS,K,1))+(S*VAL( 
MIDS (N$,L,1))) 

170 IF T>90 OR T<65 THEN T=T-(S 


LET 


*26) 

180 PRINT CHRS(T); 

190 NEXT 

20 CLS 

30 PRINT TAB(10)"CIFRA SAINT CY 

Rº: PRINT 

40 PRINT TAB (14)"“CUIDADO”: PRINT 
50 PRINT TAB(2)"NÃO DEIXE ESPAÇ 
O ENTRE AS PALAVRAS” 








60 PRINT:PRINT 


70 PRINTODIGITE 1 PARA CODIFIC 


AR" 

BO PRINTºDIGITE -1 PARA DECODIF 
LCAR” 

90 INPUT S 

100 INPUT"QUAL SUA MENSAGEM" ;AS 
110 FOR K=1 TO 1500:NEXT K:CLS 

120 INPUT introduza o número ch 
ave (7 dígitos)" ;NS 

130 FOR K=1] TO 1500:NEXT K:CLS 

140 FOR K=1 TO LEN(AS) 

150 L=K-TNT(K/7)*7+1 

L60 T=ASC(MIDS(AS,K, 1) )+(S*VAL( 


MIDS (N$,L,1))) 

170 IF T>90 OR T<65 
*26) 

180 PRINT CHBRS(T); 
190 NEXT 


THEN T=T-(S 


20 HOME 

30 PRINT TAB( 11)"CIFRA SGT. 
CYRº: PRINT 

40 PRINT TAB( 14)"CUTDADO": P 
RINT 


50 PRINT "NAO DEIXE ESPACOS EN 

TRE AS PALAVRAS” 

60 PRINT : PRINT 

70 PRINT "INTRODUZA 1 PARA € 

ODIFICAR" 

BO PRINT "INTRODUZA -1 PARA DE 

CODIFICAR" 

90 INPUT S 

100 INPUT "QUAL SUA MENSAGEM?" 
:AS 

110 FOR K = 1 TO 1500: NEXT K: 
HOME 

120 INPUT "INTRODUZA O NUMERO 

CHAVE (7 DIGITOS)*;NS 

130 FOR K = 1 TO 1500: NEKT K: 
HOME 

140 FOR K = 1 TO LEN (AS) 

150 L = K- INTHO(K/7)*7+ 
1 

160 T = ASC ( MIDS (AS,K,1)) + 
(8 * VAL ( MIDS (NS,L,1))) 
170 IFT>900RTÃ<á 65 THENT 
= T- (S* 26) 

180 PRINT CHRS (T); 

190 NEXT 


Cada letra lida do texto do progra- 
ma é, antes, convertida em seu valor AS- 
CII. A função VAL acrescenta a esse va- 
lor uma quantidade indicada por um dos 
dígitos de seu número-chave (linha 160). 
Depois de conferirmos se o resultado es- 
tá na faixa aceitável (linha 170) a fun- 
ção CHRS$ apresentará a letra equivalen- 
te à original, | 

Consideremos a mensagem TRO- 
PASCAPTURAMPONTEPEGASUS. 
Rodando o programa com o número- 
chave 5331401, o texto codificado seria: 
WUPTATHDSUYRBRSROXEQUIDTYS. 
Com um indicador variável 8, que po- 
de assumir os valores — | ou 1, é possi- 
vel usar o mesmo programa para a de- 
codificação. 


O número-chave de sete digitos po- 
de ser escolhido aleatoriamente. Porém, 
como é necessário que ele esteja sempre 
disponivel, é aconselhável utilizar algo 
que nos seja familiar, como um nume- 
ro de telefone. Como há dez milhões de 
combinações possíveis para o número- 
chave, a cifra de Saint Cyr dificilmente 
pode ser quebrada. Contudo, é possivel 
torná-la ainda mais segura se codificar- 
mos a mensagem duas vezes, Isto É, co- 
locando a mensagem já cifrada outra 
vez no computador. 

Usando os números-chave 8694153 e 
8130337, a sequência de codificação e 
decodificação seria: 


Texto Numero-chave 
PREPARARDESEMBARQUE 's 
3694153 po 
VAIQFUIXMITJPIGAUV] E) 
8130337 15 
WDITFBQYPIWMWRHDUYM E 
8130337 3 
VAIQFUIXMITIPIGAUV] a 
8694153 ê 


PREPARARDESEMBARQUE 


LITILICUUS 





CÓDIGO MORSE 


A segurança, porém, não é tudo. Por 
mais indecifrável que seja um código, 
ele de nada vale se não pode ser trans- 
mitido rapidamente. 

O imperador francês Napoleão Bo- 
naparte percebeu o problema e tentou 
superá-lo construindo por toda a Fran- 
ça torres que se comunicavam por méio 
de sinais de luz. Isso tornou possivel o 
envio de mensagens a grandes distâncias 
em pouco tempo. Dessa forma, o Exer- 
cito francês podia manter-se informado 
sobre o movimento das tropas inimigas. 

Entretanto, a invenção do telégrafo 
e da cifra conhecida como código Mor- 
se, na década de 1830, foram os fatores 
que mais contribuiram para dinamizar 
as comunicações secretas. O inventor 
desse código, o norte-americano Samuel 
Morse, criou um sistema de comunica- 
ção no qual pontos e traços substituiam 
as letras. 

O programa Código Morse codifica- 
rá seus textos e decodificará uma série 
de pontos e traços. Por exemplo, o fa- 
moso sinal de socorro SOS seria repre: 











“NEAR E 0 mrocrmaghomse ao ron o 








Qual a utilidade dos códigos? 
indispensáveis ao mundo dos es- 
| piões, os códigos são também muito 
empregados nas telecomunicações e 
em atividades bancárias que exigem si- 
gilo. Grandes empresas comerciais que 
fazem uso de computadores para con- 
trolar seus estoques recorrem igual- 
mente a esse tipo de linguagem. Às- 
sim, cada item estocado é classificado 
com um código. Quando se trata de ar- 
tigos importados, costuma-se utilizar O 
“código de barras'', que consiste em 
quadrinhos com faixas verticais pretas 
e brancas. Essas “barras” são lidas por 
| meio de um instrumento óptico. Quan- 
| do um dos artigos é retirado, o compu- 
| tador registra a operação e informa a 
respeito do preço da mercadoria, 
Existem também terminais de com- 
pras nas próprias lojas, onde o cliente 
apenas digita um código e o total a pa- 
gar. Instantaneamente, o computador 
transfere essa quantia da sua conta pa- 
ra a da loja, Como se pode ver, as no- 
tas e moedas tendem a desaparecer, e 
as caixas registradoras deverão ser 
substituídas por terminais de compu- 
tador. Mas, para tanto, é necessário 
que sejam criados códigos muito efi- 
cientes, de modo a evitar roubos e 
| fraudes. 





sentado por /.../---/.../ e um texto maior 
como FUJA À MEIA-NOITE seria 
Lcd col Ade dl ed el ad 


UM EXERCÍCIO DE CODIFICAÇÃO 





Tente fazer as duas codificações men- 
cionadas com o próximo programa. Pa- 
ra os micros da linha Sinclair, você de- 
ve adicionar cinco asteriscos no final da 
mensagem para indicar que ela já está 
completa. 


10 BORDER O: 
CLS DIM aS(26,4): 


PAPER O: INK 7: 
LET S8=" 


E —— q 
—, TSE di O 


"+. LET £S=" a 
15 POKE 23658,8 
20 FOR x=1 TO 26: READ asS(x): 
NEXT x 
30 INPUT "Codificar (1) ou De 
codificar (2)";r 
40 IF r=2 THEN GOTO 140 
60 INPUT "MENSAGEM A SER CODI 
FICADA :"'m5S 
70 FOR x=1 YO LEN m5 
BO IF mS(x)=" " THEN 
"+ GOTO 110 
90 LET pS=mS$ (x) 
100 PRINT ” "saS( (CODE p$)- 
64); 
110 NEXT x 
120 PRINT "'*!*'" QUALQUER TECLA 
PARA CONTINUAR";: PAUSE 9999 
130 RUN 
140 INPUT "MENSAGEM A SER DECO 
DIFICADA :"'mS: LET m$=mS+" * 
160 FOR x=1 TO LEN mS 
170 LET kS=m$S (x) 


PRINT ” 


180 IF kS=" " THEN GOTO 220 
190 LET n$=55+k5 
200 NEXT x: GOTO 120 


210 IF LEN s$>5 OR LEN s$<l 
THEN PRINT "ERRO": GOTO 120 
220 IF LEN sS<>5 THEN LET s53= 
aS+f5( TO 5-LEN 93) 

225 FOR h=1 TO 25: TF aS(h)=s5 
THEN PRINT CHRS$S (h+64); 

230 NEXT h 

240 LET sS="": 
250 DATA "0-","-000","-0-0","- 
00” ,"0","00-0","--0","0000","0 
0" ,"0--=","=0-=","0-00","==","=- 


GoTo 200 


0” ; sa" E "Q==0" A P--=()=" : "0-0" i PF 
000”, "=","00-”,"000=","0--","- 
Ge =, = Uyo 


10 CLS:DIM AS(26) 





= RO 
Wr 


SS 


20 FOR X=1 TO 26:READ AS(X) :NEX 
TX 

30 PRINT €96,;: INPUT"CODIFICAR 
OU DECODIFICAR (1,2) ";R 

40 IF R=2 THEN 140 

50 PRINT” MENSAGEM A SER CODIF 
ICADA :* 

60 INPUT MS 

70 FOR X=1 TO LEN(MS) 
80 IF MIDS(M$,X,1)=" 
NT” ":;:GOTO 110 
90 PS=MIDS(MS,X,1) 
100 PRINT * ";AS(ASC(PS)-64); 
110 NEXT 

120 PRINT: PRINT:PRINT * 
ER TECLA PARA CONTINUAR” 
130 IF INKEYS="" THEN 130 ELSE 
RUN 

140 PRINT” MENSAGEM A SER DECOD 
IFICADA” 

150 INPUT M$:MS=M$+" 
INT 

160 FOR X=1 TO LEN(MS) 

170 KS=MIDS(MS,X,1) 

180 IF K$=" ”" THEN 210 

190 S$=55+KS 

200 NEXT:PRINT:GOTO 120 

210 IF LEN (S$)>4 OR LEN(SS)<1 
THEN PRINT " ";:GOTO 200 

220 FOR H=1 TO 26:1IF AS(H)=55 T 
HEN PRINT CHAS (H+64) 

230 NEXT 

240 S$="":GOTO 200 


” THEN PRI 


QUALQU 


"PRINT: PR 


250 DATA 0-,-000,-0-0,-00,0,00- 
0,--0,0000,00,0---,-0-,0-00,--, 
-(1,--=,0--0,--0-,0-0,000,-,00-, 
000-,0--,-00-,-0--,--00 


“ 
io 

LO CLS:DIM AS(26) 
20 FOR X=1 TO 26 


XT X 
30 PRINT TAB(3) 


“READ AS(X) :NE 


: S INPUT"CODIFICA 











111 E | E ER É 
| hi À | | | E ) 
1 E rês. | E | HI 4 


R OU DECODIFICAR(1,2)";R 
40 IF R=2 THEN 140 

50 PRINT TAB(7)"MENSAGEM A SER 
CODIFICADA” 

60 INPUT M$ 

70 FOR X=1l TO LEN (MS) 

80 IF MIDS(M$S,X,1)=" ” THEN PRI 
NT” "::GOTO 110 

90 PS$=MIDS(MS,X,1) 

100 PRINT” ";AS(ASC(PS)-64); 
110 NEXT X 

120 PRINT:PRINT:PRINT TAB(2)"AP 
ERTE QUALQUER TECLA PARA CONTIN 
UAR” 

130 IF INKEYS="" THEN 1.30 ELSE 
RUN 

140 PRINT TAB(6) "MENSAGEM A SER 
DECODIFICADA” 

150 INPUT M5:M5=M5+" ":PRINT:PR 
INT 

160 FOR X=1 TO LEN(MS) 

170 K5S=MIDS (MS,X,1) 

180 TF K5=" * THEN GOTO 210 

190 39=55+K5 

200 NEXT X:PRINT:GOTO 120 

210 IEF LEN(S5)>4 OR LEN(SS)<S1 T 
HEN PRINT:PRINT ” DETXE ESPA 
ÇO ENTRE OS CÓDTGOS”: GOTO 200 
220 FOR H=1 TO Z6:TF AS(H)=55 T 
HEN PRINT CHR$S (H+64); 

230 NEXT 

240 5$="":GOTO 200 

250 DATA 0-,-000,-0-0,-00,0,00- 
0,--0,0000,00,0---,-0-,0-00,--, 
(), ===, 0=-0,--=0=,0-0,000,-,00-, 
000-,0-=,-00-,-0-=,=-=00 


10 HOME 


: DIM AS(Z6) 
20 FOR X = 1 TO 26: READ AS(X) 
NEXT X 


30 PRINT TAB( 6);: INPUT "COD 
TFICAR OU DECODIFICAR(1,2)?”;R 
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Código Morse na tela 


40 IF R = 2 THEN I40 

50 PRINT TAB( 9) "MENSAGEM A 5 
ER CODIFICADA” 

60 INPUT M$ 

70 FOR X = 1 TO LEN (M$) 

BO IF MIDS (MS,X,1) = * * THE 
N PRINT * "1: GOTO 1J0 

90 PS = MIDS (MS,X,1) 

100 PRINT *" ";AS( ASC (P$) - 6 


4) 
110 NEXT 
120 PRINT PRINT PRINT TAB 


( 3)" APERTE QUALQUER TECLA PARA 
CONTINUAR" 

130 GET TS: IF TS = "" THEN G 

OTo 130 

135 GOTO 30 

140 PRINT TAB( B) "MENSAGEM A 

SER DECODIFICADA” 

150 INPUT M$:MS = M$ + * ": PR 
INT : PRINT 

160 FOR X = 1 TO LEN (M$) 

170 KS = MIDS (M$,X,1) 

180 TE Kã =" * THEN GOTO 210 
190 3558 = 858 + KS 


200 NEXT X: PRINT GOTO 120 


EOBRas 





ERRA 


210 IF LEN (585) > 4 OR DLEN « 
88) < 1 THEN PRINT * ";: GOTO 
200 


220 FOR H = 1 TO zZ6: IF ASH) 


= 55 THEN PRINT CHAS (H + 64) 
230 NEXT 

240 88 = "*: GOTO 200 

250 DATA 0-,-000,-0-0,-00,0,0 


0-0,--0,0000,00,0--—-,-0-,0-00,- 
0, ===, 0-=0, ==0=,0-0,000,-,0U 
-,000=,0-=,-00-,-0-=,--00 


A primeira parte do programa atri- 
bui a cada variável AMX) um sinal Mor- 
se equivalente a uma letra do alfabeto, 
na sua devida ordem (linha 20). Por 
exemplo, A$S(1) conterá /.-/, que é o có- 
digo da letra A, Seria interessante usar 
o sinal de menos para um traço, e o as- 
terisco ou o zero para um ponto, em vez 
do ponto final. 

A parte de codificação é muito seme- 
lhante à dos dois primeiros programas. 
Cada letra de seu texto é lida e conver- 
Lda em um número entre | e 26 e a se- 
quência adequada de pontos e traços é 
então impressa (linha 100). 

A decodificação da mensagem se pro- 
cessa do seguinte modo. O computador 
lê cada caractere e soma-o aos anterio- 
res, até encontrar um espaço (linhas 160 
a 200). Então ele compara essa cadeia 
de caracteres com as que estão na variá- 
vel A$, identificando a letra equivalen- 
te e imprimindo-a por meio do coman- 
do CHRS$S (linha 220). 

Na segunda parte deste artigo, você 
aprenderá a decodificar transposições e 
cifras e utilizar códigos multiplicativos 
e códigos comerciais. 
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ARMAZENAGEM 
DE NÚMEROS 


Quando o resultado de uma operação 
numérica é muito grande ou, então, 
muito pequeno, o computador mostra, 
frequentemente, na tela, um número 
com aparência meio estranha, tal como 
2.34E12 ou 1.222E.-9, 

Essa maneira de representar números 
é conhecida como notação cientifica, ou 
notação de engenharia, e é usada auto- 
maticamente toda vez que o interpreta- 
dor BASIC não consegue mostrar um 
valor numérico que caia dentro do limite 
de sete a oito algarismos, dependendo 
da marca do computador. Existem tam- 
bém meios, em BASIC, de mostrar ou 
imprimir os valores numéricos que se 
quiser, em notação científica. 

Na notação cientifica (chamada ain- 
da de forma exponencial), um número 
é composto por duas partes: a mantissa, 
que contém os algarismos significativos 
do número, geralmente com apenas um 
dígito à esquerda da vírgula; e o expoen- 
te, que consiste em uma potência de 10 
pela qual a mantissa deverá ser multi- 
plicada para obter o valor numérico a 
ser representado. Assim, por exemplo, 
os números aqui abordados significam, 
respectivamente: 


2.34E12 = 2.34 x 104 = 
= 2.340.000.000.000 


|. 223E9 = 1.223 x 10"? = 
= 0,000000001223 


Na realidade, esta é exatamente a ma- 
neira com que o interpretador BASIC 
armazena todos os valores reais: man- 
tissa e expoente são conservados em gru- 
pos separados de bytes. Só quando o nú- 
mero vai ser mostrado por um PRINT 
ou equivalente é que se processa a con- 
versão para o formato mais conhecido. 
O limite para que isso ocorra varia com 
a marca do computador. Nos micros da 
linha Apple, TRS-Color e TRS-80, por 
exemplo, é de sete algarismos. No Spec- 
trum e no MSX, é de oito algarismos. 
Alguns computadores, como os das li- 
nhas TRS e MSX, podem expressar nu- 
meros com precisão dupla, isto é, não 
precisám recorrer à forma exponencial 
se O número tiver até quinze dígitos de 

- precisão. 
Você também poderá usar a forma 


exponencial como um modo abreviado 
de entrar números longos no computa- 
dor (dentro de um programa, ou mes- 
mo usando um comando INPUT). 

O programa a seguir o ajudará a en- 
tender como funciona essa forma, e co- 
mo o valor da mantissa é calculado. 








RR 








li 4 1 = to É | n r 
, 44 
e | Ê MERE. | 1 


Como você já sabe, o interpretador 
BASIC pode trabalhar com números 
fracionários. Aprenda agora 
a armazená-los na memória 
e obtenha resultados mais precisos. 


O d— 


10 CLS : 

20 INPUT 

, LINE AS 
25 IF A$="" THEN GOTO 20 

30 LET N$="0": LET E=0: LET WN 


POKE 23658B,B 
“INTRODUZA O NUMERO" “ 


mem — 








A cado f 











a EXPOENTES 
COMO SÃO ARMAZENADOS 
OS NUMEROS 

PONTO FLUTUANTE 

A FUNÇÃO INSTR 





=VAL AS 60 LET NS=STR$S N: LET F=0: 
40 IF N=0 THEN PRINT “VALOR FOR M=1 TO LEN NS: IF NS(M)=" 
p. MUITO PEQUENO !": PAUSE 50: E” THEN LET Fe=M 
4 Goro 10 65 NEXT M: IF F=0 THEN GOTO 
À SO LET F=0: FOR M=1 TO LEN AS 180 
| : TF AS(M)="E” THEN LET F=M 68 LET NS=NS( TO F-1) 
55 NEXT M: IF F=0 THEN GoTo 70 IF ABS N<1l THEN GOTO 130 
200 BO IF ABS N<1O0 THEN GOTO 110 


LET F=0: FOR M 
JE NS(M)=".” 


90 LET N=N/10: 

=] TO LEN NS: 

THEN LET F=M 

92 NEXT M: IF 

LET NS=NS( TO 
100 

95 IF F<>0 THEN LET NS=NS( 

TO F-1)+NS(F+L)+”P."+NS(F+2 TO 
): GOTO 80 

)J00 LET N$=NS+"0": GOTO BO 

110 IF NS(LEN N$)=".”" THEN 

LET NS=NS( TO LEN NS-1) 


F=LEN NS THEN 
LEN N$-1): GOTO 





































120 GoTo 180 

130 IF ABS N>=1 THEN GOTO 170 
140 LET N=N*10: LET F=0: FOR M 
=1 TO LEN NS: IF NS$(M)="." 
THEN LET F=M 

145 NEXT M: IF F=1 THEN LET N 
s=".O"+NS(2 TO ): GOTO 130 

150 IF F<>0 THEN LET NS=NS( 


TO F-2)+"."+NS (F-1)+NS (F+1 TO 
): GOTO 130 


160 LET N$="."+NS: GOTO 130 


170 IF VAL AS<O THEN LET N$=" 
="+NS 

180 PRINT PRINT AS;" IGUAL": 
PRINT NS 


190 GOTO 20 

200 IF ARS N<1l THEN GOTO 220 

210 IF ABS N>=10 THEN LET E=E 
+1: LET N=N/10: GOTO 210 

215 GOTO 240 

220 IF ABS N<=1 THEN LET EsE- 
1: LET N=N*10: GOTO 220 
230 PRINT AS;” IGUAL": 

+: IF E<>0 THEN PRINT 

240 PRINT GOTO 20 


“TIN? 


8 10 CLS 


) |» 20 PRINT: INPUT” INTRODUZA O NUME 
| RO ";AS 
EE 30 N$="0" :E=0:N=VAL (AS) 


40 IF N=0 THEN PRINT "VALOR 
MUITO PEQUENO !": PRINT:GOTO 20 
50 I=INSTR(AS,"E"):IF F=0 
THEN 200 
60 NS$=STRS (N) : F=INSTR(NS,"E 
"jY:1 F F=0 THEN 180 ELSE N 
3=MIDS (NS, 2,F-2) 
70 IF ABS(N)<1 THEN 130 
BO IF ABS(N)<1O THEN 110 
90 N=N/10:F=INSTR(NS,"."):IF F= 


PRINT N 
"EP:E 


hi a 1 | TR — 1 i 
À ] 
' ] ] | 
| | ] 
| 
d 








NÚMEROS NEGATIVOS 


E PEEK NA MEMÓRIA 


E COMO ECONOMIZAR MEMÓRIA 


HE FORMATAÇÃO COM PRINT USING 


LEN(NS) THEN N3=LEFTS (NS, LEN(NS 
)J-1) ELSE IF F<>0 THEN NS=LEFTS 
(NS, F-1) +MIDS (NS,F+1,1)+"."+MID 

S (NS,F+2):GOTO BO 

100 N$=N$+" 0" :GOTO BO 
110 IF RIGHTS (NS,1)=". 

=LEFTS (NS, LEN(NS)-1) 
120 GOTO 180 

130 IF ABS(N)>=1 THEN 170 

140 N=N*10:F=INSTR(NS,"."):IF F 

=] THEN N$=".0"+MIDS (N$,2) :GOTO 
130 

150 IF F<>20 THEN NS=LEFTS (NS, F- 

2)+" ."+MIDS (NS, F-1, 1) +MIDS (NS,F 

+1) :GOTO 130 

160 N$="."+NS:GOTO 130 

170 IF VAL(AS)<O THEN N$="-"+NS 

180 PRINT:PRINT AS;" IGUAL”:PRI 

NT NS 

190 GOTO 20 

200 IF ABS(N)<1l THEN 220 

210 IF ABS(N)>2=10 THEN E=E+1L:N= 

N/10:GOTO 2Z10 ELSE 230 

220 IF ABS(N)<=1 THEN E=E-1:N=N 

*10:GOTO 220 

230 PRINT AS;" 


” THEN NS 


IGUAL ":PRINT N; 


CHARS (8); :IF E<>0 THEN PRINT "E" 
E 

240 GOTO 20 

pensa 

10 HOME 

20 PRINT : INPUT "ENTRE NUMERO 
o AS 

30 LET NS = "0":E = 0:N = VAL 
(AS) 

40 IF N= O THEN PRINT VYVALOR 
MUITO PEQUENO”: PRINT : GOTO 2 

O 

50 FOR F = 1 TO LEN (AS): IF 
MIDS (AS,F,1) = "E" THEN 54 

52 NEXT F':F = O: GOTO 200 


54 IF F = O THEN ÇZ00 
60 LET NS = STR$ (N) 

62 FORF = 1 TO LEN (NS): IF 
MIDS (NS,F,1) = "E” THEN 66 

64 NEXT F:F = 0 

66 IF F = O THEN 180 

68 LET NS = MIDS (NS,L,F - 2) 
70 IF ABS (N) < 1 THEN 130 

80 JIF ABS (N) < 10 THEN 110 

90 LETN=N/ 10 


92 FOR F = 1 TO LENGCN3): IF 


MIDS (NS,F,1) = ".” THEN 96 
94 NEXT F:F = OU 
96 IF F = LEN (NS) THEN N$ = 
LEFTS (NS, LEN (N$) - 1): GOTO 
100 
98 IF F<S > O THEN NS = LEFT 


MIDS (NS,F + 1, 
(NS.F + 2): GO 


S (NS,F +. 1) + 
3 + *,” + MIDS 








To B0 


100 GoTo 80 


LET NS = N$ + "0º: 


110 IF RIGHTS (NS,1) = "." TH 
EN NS = JLEFTS (NS, LEN (NS) - 
1) 

120 GoTO 180 

130 IF ABS (N) > = 1 THEN 17 
0 

140 LET N=N* 10 

142 FOR F = 1 TO LEN (NS): IF 


MIDS (NS,F,1) = ".” THEN 146 


144 NEXT F:F = O 


146 J1IF EF = 1 THENNS="0.0”" + 
MIDS (NS,2): GOTO 130 

150 IF EF < > O THEN NS = LEF 

TS (NS,F - 2) + ”".” + MIDS (NS 


E - 1,1) + MIDS (N$S,F + 1): G 
OTO 130 


160 LET NS = ".” + NS: GOTO 13 

O 

170 IF VAL (AS) < O THEN NS = 
".. + E 

180 PRINT AS;" IGUAL A ";NS 
190 GOTO 20 

200 IF ABS (N) < 1 THEN 220 

210 IF ABS (N) > = 10 THEN E 
= E+1:N=Ny/ 10: coro zlo 
215 GOTO 230 

220 TF ABS (N) < = 1] THEN E 

= E -lN=N* 10: GOTO zZ20 
230 PRINT AS;" IGUAL A “;N; 

235 IF E < > 0 THEN PRINTTE 
"E 

240 PRINT GoTo 20 


Quando você executar esse progra- 
ma, com o comando RUN, o computa- 
dor ficará esperando que um número se- 
ja digitado, e as teclas < ENTER> ou 
< RETURN sejam pressionadas. En- 
tre, então, um número positivo, em for- 
ma normal, ou no modo exponencial. 
O computador imprimirá o número que 
você entrou na forma oposta. Os micros 
TRS-80, TRS-Color e MSX dispõem de 
um comando (PRINT USING, já expli- 
cado em um artigo anterior) que dá mais 
liberdade ao programador para impri- 
mir números de acordo com um deter- 
minado formato. Isso será explicado 
mais adiante. 

O programa utiliza a função INSTR, 
nas versões para o TRS-80, TRS-Color 
e MSX. Essa função não existe no Ap- 
ple e no Spectrum, mas pode ser substi- 
tuída por uma pequena rotina sempre 
que for necessário. Ela tem por finali- 
dade localizar o ponto da cadeia que 
contém o número de entrada, onde está 


Õ 


(se estiver) presente a letra E, indicati- 
va de expoente. A expressão INSTR 
(AS, ““E"') retorna um valor numérico, 
igual à posição do E na cadeia de entra- 
da. Esse valor é armazenado em F, e se- 
rá igual a zero, se não for encontrado. 

Nos computadores que não possuem 
a função INSTR, um laço FOR...NEXT 
percorre, caractere por caractere, a ca- 
deia de entrada (função MIDS, no Ap- 
ple, e TO, no Spectrum), examinando 
se é um E. Se este for encontrado, sua 
posição estará contida no contador do 
laço (variável F). 

A lógica do programa é um pouco 
complicada, mas você conseguirá 
entendê-la se tomar um exemplo numeé- 
rico e seguir o processamento manual- 
mente, para ver como funciona, 





COMO CONVERTER 


Se você quiser encontrar a forma 
“normal” de um número expresso na 
forma exponencial, deve multiplicar a 
mantissa por um valor igual a 10 eleva- 
do ao número situado logo após a letra 
E (ou seja, o expoente). 

Aparentemente complicado, esse cál- 
culo é na verdade muito simples. Tome 
como exemplo o número 1.23E4. Para 
convertê-lo na forma mais comum, mul- 
tiplique a mantissa (1.23) por 10 eleva- 
do a 4. Teremos, assim: 

1.23 x 10.000 = 12.300 

Você pode tentar converter vários nú- 
meros como esse, checando os resulta- 
dos com o auxílio do programa que foi 
apresentado linhas atrás. Note que, 
qualquer que seja o valor, a mantissa é 
sempre expressa com um algarismo an- 
tes do ponto. Portanto, ela varia entre 
1.0 e 9.999999, 

Os valores negativos são expressos de 
maneira similar. Nesse caso, a mantis- 
sa é um número negativo, enquanto o 
expoente pode ser tanto negativo como 
positivo. Aliás, um sinal negativo no ex- 
poente tem um significado totalmente 
diferente do de um sinal negativo na 
mantissa. Tente você mesmo testar is- 
so, utilizando nosso programa. 





ARMAZENAMENTO DE NÚMEROS 





A notação exponencial é igualmente 
útil para nos ajudar a compreender co- 
mo os computadores armazenam núme- 
ros, internamente. 

Quando um comando direto é digi- 
tado e executado — por exemplo, 
PRINT 10 * 10 —, a primeira coisa que 
o interpretador BASIC faz é traduzir os 
números entrados para a forma expo- 
nencial, e usá-los nessa forma para cal- 
cular o resultado, que também é arma- 
zenado na forma exponencial. 

Nem tudo, porém, parece tão sim- 
ples. Como você já sabe, os computa- 
dores digitais não utilizam a notação de- 
cimal para armazenar números, mas sim 
a binária (numeração de base dois). Pa- 
ra entender de que maneira os números 
são armazenados na memória RAM, si- 
ga o exemplo abaixo, de conversão do 
número 10 (em decimal). 

O primeiro passo é convertê-lo em bi- 
nário. Isso nos dá o número 


00001010.00000... 


Os primeiros quatro zeros desse núme- 
ro binário poderiam ser eliminados, re- 
sultando no número 1010.00000... 

Como foi visto, um número decimal 
em forma exponencial contém uma 
mantissa entre 1.0 e 9.9999... Quando 
um número como esse é armazenado em 
binário, a mantissa transforma-se em 
um número que sempre começa com .1. 

Isso é possível porque o tamanho da 
parte exponencial do número determi- 
na a posição do ponto binário (o equi- 
valente binário ao ponto decimal). Co- 
mo ele é automaticamente definido, a 
mantissa não precisa especificar onde se 
encontra o ponto. Surgem, assim, dois 
problemas: como fazer com que a par- 
te exponencial do número indique onde 
deverá estar o ponto binário, e como 
converter esse número de tal maneira 
que ele comece com .1? 


COMO MOVIMENTAR O PONTO 


A resposta para ambos os problemas 
é a mesma: tudo o que precisa ser feito 





é mover o ponto até que ele fique à es- 
querda do primeiro 1, e adicionar 1 ao 
expoente para cada posição que o pon- 
to seja deslocado. Por exemplo, para o 
número 58 (em decimal), ou 111010.000 
(em binário), o ponto binário é movido 
gradualmente para a esquerda, até que 
não haja mais números à sua esquerda. 
Neste caso, teriamos que movê-lo seis 
casas para a esquerda, de modo que o 
éxpoente resultasse em +6, e a mantis- 
sa fosse 0.11101000. 

Na realidade, o expoente parte de 128 
(por razões esclarecidas mais adiante); 
portanto, o número de posições deslo- 
cadas deve ser somado a 128, e não a 
0. No exemplo acima, o expoente será 
igual a 128+6, ou 134 (e isto é armaze- 
nado como um número binário). 


Recapitulando, o computador arma-. 


“zena a parte exponencial de um núme- 
ro em byte. A mantissa é armazenada 
também, só que ocupa quatro bytes. No 
exemplo acima, os três bytes restantes 
seriam preenchidos com zeros: 


EXPOENTE 
MANT-1 MANT-2 MANT-3 MANT-4 
11101000 00000000 00000000 00000000 


Portanto, qualquer número real ocu- 
pa exatamente cinco bytes. Isso limita 
os tamanhos máximo e minimo que o 
computador pode armazenar. O byte 
único da parte exponencial nos dá o va- 
lor máximo de 2 elevado a 127 (não de 
256, pois o primeiro bit é usado como 
indicador de sinal, para comunicar se o 
expoente é positivo ou negativo, deixan- 
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do apenas sete bits para o valor numé- 
rico do expoente). 

O valor máximo da mantissa é 
0.11111..., quando todos os bits são 
iguais a 1. Esse valor está muito próxi- 
mo do binário 1.00000..., que é 1 tanto 
em binário quanto em decimal. O me- 
nor valor possivel será, então, 
0.100000..., quando todos os bits, ex- 
ceto O primeiro, forem iguais a zero 
(lembre-se de que o primeiro bit da man- 
tissa é sempre iguala 1, pois o ponto bi- 
nário é movido até aí). E 0.1 em biná- 
rio é igual a 1/2 ou 0.5, em decimal, 

Multiplicando a mantissa pelo ex- 
poenite, você poderá chegar até os valo- 
res extremos que podem ser armazena- 
dos na memória, em ponto flutuante. O 
valor máximo é 1.70141E38, em deci- 
mal, para um micro de oito bits. Você 
poderá utilizar os programas seguintes 
para verificar como é representado este 
número internamente. 

Nesse aspecto, o Spectrum difere dos 
demais computadores: ele utiliza seis 
bytes em vez de cinco para armazenar 
números em ponto flutuante. Cinco des- 
ses bytes são idênticos aos do exemplo 
citado. O sexto é necessário para indi- 
car ao computador se o número é de 


ponto flutuante ou não. Isso é feito: 


precedendo-se o grupo de cinco bytes 
com o byte igual a 14, 


“CASOS ESPECIAIS 





O que foi dito anteriormente nos dá 
uma boa idéia de como o computador 
armazena números em formato de pon- 
to flutuante. Existem, porém, duas va- 





rrantes em relação ao processo estuda- 
do. À primeira ocorre quando o núme- 
ro inicial é menor do que |. Nesse caso, 
se tentarmos movimentar o ponto biná- 
rio para a esquerda, iremos afastá-lo do 
lugar onde queremos que ele realmente 
esteja. Portanto, devemos movê-lo pa- 
ra a direita. Do mesmo modo, a fim de 
que o número seja corretamente repre- 
sentado, diminui-se o expoente de 1, pa- 
ra cada posição deslocada (em vez de so- 
mar 1), O expoente começa, como sem- 
pre, a partir do valor 128. 

Muitas vezes, antes de exibir um nú- 
mero binário, o computador escreve, 
acima de cada “coluna” desse número, 
seu equivalente decimal. Você já deve 
ter visto isso antes nos artigos sobre blo- 
cos gráficos, mas apenas para o caso dos 
números à esquerda do ponto. O mes- 
mo pode ser feito para os números à di- 
reita do ponto, que formam na realida- 
de sua parte fracionária. 

Em binário, para achar o valor deci- 
mal da próxima coluna à esquerda, 
multiplica-se o valor por 2. Trabalhan- 
do da esquerda para a direita, portan- 
to, deve-se fazer exatamente o contrá- 
rio, ou seja, dividir por 2. 

A segunda variante na representação 
dos números em ponto flutuante ocor- 
re quando o número é menor do que ze- 
ro, ou seja, negativo. Nesse caso, O com- 
putador precisa armazenar à sua versão 
interna do sinal de menos em algum lu- 
gar — e isto deve ser feito sem desper- 
diçar espaço de memória. 

Você viu antes que, da maneira co- 
mo os números são armazenados, o pri- 
meiro bit do primeiro byte da mantissa 
tem que ser sempre igual a 1. Dando is- 














so como certo, o computador utiliza esse 
bit para indicar o sinal da mantissa: se 
o número for negativo, o bit valerá 1; 
se ele for positivo, o valor do bit será, 
então, O. 





ONDE ESTÁ AQUELE NUMERO? | 


A partir dos exemplos acima, já é 
possível entender como o computador 
armazena os números na memória. O 
número decimal 58 (111010 em binário) 
é armazenado em cinco bytes sucessivos, 
da maneira como se segue: 


134 104 000 000 000 (em decimal) 


e o número 10 (decimal) é armazenado 
assim: 


132 032 000 000 000 


Experimente vários exemplos, traba- 
Thando com os valores decimais conti- 
dos nos bytes. Teste as suas respostas 
usando o programa a seguir. Digite 
RUN 100 para entrar outro número. 

Embora armazenem números na for- 
ma geral exposta até agora, os micros 
compatíveis com o Sinclair Spectrum 
contam ainda com outro recurso. Se um 
número inteiro, compreendido entre 
-65535 e 65535 for usado, o Spectrum 
o armazena de modo diferente, reduzin- 
do-o a seu equivalente binário e guar- 
dando-o em apenas dois bytes (e não em 
forma exponencial, usando seis bytes). 
Embora possa parecer que isso seja fei- 
to para economizar memória, tal fato 
não acontece, pois três bytes são deixa- 
dos sem uso. 

Por essa razão, quando você usar O 
primeiro dos dois programas abaixo, 
não entre um valor númerico entre 
-65535 e 65535: O programa ainda fun- 
cionará, mas os resultados não corres- 
ponderão à explicação adotada. 


10 BORDER 1: PAPER 7: INK 9: 
CLS 
20 INPUT “Introduza um numero 


(nao inteiro)",x 


40 PRINT '"Expovente: "; PEER ( 
PEEK 23627+256*DEEK 23628+1L) 
50 PRINT '"Mantissa:";: FOR n 


=2 TO 5 

60 PRINT TAB 10; PEEK (PEEK 
23627+756*PEEK 23628B+n) 

70 NEXT n 

BO STOP 


TT 
LO CLS 
20 INPUT” INTRODUZA UM NUMERO ” 


| | | 
| 
| 
| I | 
| 
| 


N 

30 D=VARPTR (N) 

40 PRINT:PRINT” EXPOENTE = ",PE 
EK (D) 

50 PRINT” MANTISSA = "; 

60 FOR G=1 TO 4 

70 PRINT, PEEK (D+G) 

80 NEXT 

90 PRINT:GOTO 20 


Daio 


10 HOME 
20 INPUT "ENTRE UM NUMERO:";X 


30 LET V = PEEK (105) + PEEK 
(106) * 256 

40 PRINT "EXPOENTE:”;, PEEK (V 

+ 2) 


50 PRINT "MANTISSA:"; 

60 FORN=3To 6 

70 PRINT PEEK (V + N);” "; 
80 NEXT N 


100 REM SEGUNDO PROGRAMA 

110 BORDER 1: PAPER 7: INK 9: 
CLS LET r=0 

120 INPUT AT 1,0;"Introduza ex 
poente” ,exp 

130 IF exp<0 OR exp>255 THEN 
Goto 120 


140 PRINT '"Expoente: "“;exp: 
POKE PEEK 23627+256*PEEK 23628 
+1,exp 

150 PRINT '"Mantissa:";: FOR n 
2 TO 5 


160 INPUT AT 1,0;" Introduza ma 
ntissa”,man 

170 IF man<0 OR man>255 THEN 
Goto 160 

180 PRINT TAB 10;man: POKE 
PEEK 23627+256*PEEK 23628+n, 
man 

190 NEXT n 
200 PRINT 


TT 


'"Besulta: “ir 


100 REM SEGUNDO PROGRAMA 

110 CLS 

120 N=1:D=VARPTR (N) 

130 INPUT” INTRODUZA EXPOENTE " 
;E 

140 POKE D, (255 AND E) 

150 PRINT” INTRODUZA MANTISSA ” 
160 FOR K=1 TO 4 

170 INPUT E 

180 POKE D+K, (255 AND E) 

190 PRINT ,; 

200 NEXT 

210 PRINT:PRINT” NUMERO E ";N:P 
RINT 


220 GOTO 130 


Papo 


110 HOME :R = 1:V = PEEK (105 

) + PEEK (106) * 256 

120 INPUT "ENTRE EXPOENTE:"; EX 

130 IF EX < O OR EX > 255 THEN 
120 


140 POKE V + 2,EX 

150 FORN = 3 TO 6 

160 INPUT "ENTRE MANTISSA:";M 
170 IF M<OORM> 255 THENI 
60 

180 POKE V + N,M 

190 NEXT N 

200 PRINT "RESULTADO=";R 


O primeiro desses programas permi- 
te que um número seja digitado pelo 
teclado; em seguida, ele imprime os con- 
teúdos decimais dos cinco bytes onde o 
número está guardado. 

Seu funcionamento tem a seguinte di- 
nâmica: inicialmente, é necessário esta- 
belecer uma variável numérica, que ar- 
mazenará o número de entrada. Como 
ela é a primeira variável a ser definida 
quando o programa é executado, seu 
nome aparecerá logo no começo de uma 
área especial da memória (definida e fi- 
xada pelo interpretador BASIC de ca- 
da computador), chamada lista de va- 
riáveis. Essa lista tem informações so- 
bre o nome da variável e o endereço da 
memória RAM onde seu conteúdo será 
armazenado. Tal endereço é dividido em 
dois bytes sucessivos. No Apple, por 
exemplo, o endereço do conteúdo da 
primeira variável de um programa en- 
contra-se nos apontadores 105 e 106 (em 
decimal). No Spectrum, os endereços 
correspondentes são 23627 e 23628. 
Tanto no Apple quanto no Spectrum, 
o endereço decimal de dezesseis bits é 
calculado pela expressão na linha 40 (30 
no Apple). 

Nos computadores das linhas 
TRS-80, TRS-Color e MSX, o usuário 
não precisa conhecer a locação exata do 
apontador da lista de variáveis, pois 
existe uma função predefinida do BA- 
SIC chamada VARPTR (abreviatura de 
VARiable PoinTeR — ou apontador de 
variáveis), que indica o endereço deci- 
mal completo do ponto da memória on- 
de está armazenado o conteúdo da va- 
riável nomeada no argumento da fun- 
ção. Veja a linha 30 do programa para 
esses computadores. A variável D con- 
terá o endereço inicial dos cinco bytes 
que contém o valor armazenado na va- 
riável N. O primeiro byte contém o ex- 
poente e nos quatro bytes sucessivos es- 
tá a mantissa. 

O segundo programa faz o contrário: 
pede que cinco bytes sejam digitados, e 
imprime o número que ele representa 
(algumas das respostas poderão apare- 
cer na forma exponencial). 

Seu funcionamento é semelhante ao 
do primeiro programa, ou seja, coman- 
dos PEEK (nas versões para o Apple e 
Spectrum) ou VARPTR (nas versões pa- 
ra o TRS e o MSX) são usados para lo- 
calizar o endereço inicial da primeira va- 





E 
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riável. Ela é igualada a O ou a 1 logo na 
primeira linha do programa, para asse- 
gurar que ficará em primeiro lugar na 
lista de variáveis (esse “truque” só é ne- 
cessário para o Apple e o Spectrum). A 
seguir, o programa pede ao usuário que 
entre os valores do expoente e das par- 
tes da mantissa. Em vez de empreender 
cálculos infindáveis para chegar ao re- 
sultado convertido, o programa coloca 
esses valores nos cinco bytes de arma- 
zenamento da variável inicial, por meio 
de comandos POKE, e imprime o resul- 
tado, por meio de um PRINT normal. 


ECONOMIZE MEMÓRIA 





O computador sempre armazena nú- 
meros em grupos de cinco bytes. Ora, 
isso representa um grande desperdício 
de memória, pois nem sempre são ne- 
cessários tantos bytes na mantissa. Além 
disso, os bytes em excesso poderiam ser 
aproveitados em outros lugares. 

De fato, você pode economizar quan- 
tidades significativas de memória se evi- 
tar o uso de números em BASIC, em- 
bora isso nem sempre seja possível. 
Existe, entretanto, um jeito de reduzir 
a quantidade de memória que cada nuú- 
mero requer. Assim, é possível, em mui- 
tos casos, evitar o emprego de números 
em um programa, colocando dentro de 
variáveis os números repetidamente uti- 
lizados em várias partes do programa. 
Por exemplo, uma constante que apa- 
rece com fregiência , como o número 
pi (3.1415...), pode ser colocado na va- 
riável P. Esse “truque” funciona sem- 
pre, mas não vale a pena recorrer a ele 
quando o valor numérico é usado ape- 
nas uma ou duas vezes no programa, 

A vantagem de se empregar uma va- 
riável nesses casos é que o seu nome ocu- 
pa apenas um ou dois bytes de espaço 
no programa, em vez de cinco, se seu 
nome for curto. (A vantagem deixará, 
naturalmente, de existir se a variável se 
chamar MEDIA, ou coisa parecida). 

Alguns números — como O, 1,2, 10 
etc. — aparecem tantas vezes na maio- 
ria dos programas, que talvez convenha 
colocá-los em variáveis, se você tem pro- 
blema de espaço. Esse método é espe- 
cialmente útil nos micros Sinclair, que 
usam seis bytes em vez de cinco. 


EFEITOS ESTRANHOS 


Cálculos realizados por computador 
revelam, às vezes, erros aparentemente 
inexplicáveis; assim, um resultado que 
deveria dar “redondo” — 10.000000, 
por exemplo —, pode aparecer na tela 


sob uma forma levemente modificada 
— como 10.000001. Conhecidos como 
erros de precisão, esses equivocos são 
facilmente explicados pela maneira co- 
mo o computador armazena números. 

Tente os exemplos seguintes em sua 
máquina. À causa por trás de cada um 
dos erros será explicada mais adiante: 


Primeiro, tente a linha abaixo: 
PRINT 10.0000000001 


Ao imprimir o resultado, o compu- 
tador omite o 1 final e converte o nú- 
mero que você digitou em 10, simples- 
mente. Isso pode se tornar um proble- 
ma, quando você quiser trabalhar com 
maior precisão numérica. Entretanto, é 
possível reverter esse fato em seu favor, 
quando se deseja entrar números entre 
-65535 e 65535 no programa (o que nor- 
malmente não deve ser feito, pois o 
Spectrum os representa de forma dife- 
rente, como já foi dito). 

Basta, para isso, entrar o número inteiro 
em forma fracionária e colocar um alga- 
rismo pouco significativo no final. Assim, 
entrando o número 10.0000000001, como 
no exemplo citado, você “enganará” o mi- 
crocomputador e ele mostrará como 10 é 
armazenado no formato de cinco bytes, 
em vez de no formato especial para núme- 
ros inteiros. 

Agora tente entrar esta linha; 


PRINT INT -65536 


Com ela, será evidenciado um erro 
no interpretador BASIC do Spectrum, 
uma vez que ele não consegue diferen- 
ciar entre esse valor e -1. 


Você pode testemunhar os estranhos 
efeitos causados nos micros compativeis 
com o TRS-Color, entrando os núme- 
ros abaixo no primeiro programa: 


12345678901 E-4 


e também: 
454545454 E-46 


A discrepância do primeiro número 
é bastante óbvia. No segundo, o último 
dígito é mudado pelo computador. 


ES ESnsanbylá io] 

Essas imprecisões não são, contudo, 
como muitas pessoas imaginam, erros 
na ROM dos computadores (exceção 
feita ao segundo exemplo para o Spec- 


trum). A razão pela qual o algarismo | 
aparece ou desaparece, quando coloca- 





do no final do número, decorre do fato 
de que os computadores digitais, pela 
sua própria natureza, trabalham com li- 
mites no grau de precisão. Portanto, 
quando os valores excederem um deter- 
minado número de decimais, i interpre- 
tador será obrigado a arredondar o re- 
sultado. 

Quando isso acontece, dependendo 
dos números que estão sendo usados e, 
também, do número de etapas de cálcu- 
lo que o computador terá que vencer, os 
resultados finais podem ser completa- 
mente distintos do que se espera. 

Os computadores são mais do que 
precisos a maior parte das vezes, € esses 
“erros”, na realidade, não têm grande 
influência. Mas, para aplicações mais 
sérias, e que exigem grande precisão, co- 
mo programas de contabilidade, de es- 
tatística etc., as incorreções cumulativas 
podem se tornar um grande inconve- 
niente; isso é levado em consideração 
pelos melhores pacotes de software. 

Por exemplo, usando conjuntos e 
matrizes, podem-se armazenar números 
com mais decimais do que o máximo de 
sete a nove permitido pelos computado- 
res descritos no artigo. A vantagem des- 
sa abordagem é que o programador po- 
de desenvolver uma rotina para impri- 
mir os números em forma normal, em 
vez da exponencial, como o computa- 
dor faria com valores extremos. Essa é 
uma maneira, também, de evitar men- 
sagens de erro, como “overflow”, “nú- 
mero muito grande” etc. 


“TT 


FORMATAÇÃO DE NÚMEROS 





Já explicamos que alguns microcom- 
putadores, como o TRS-80, o TRS-Color 
eo MSX, têm comandos que permitem 
mudar o formato de impressão de núme- 
ros com o PRINT ou o LPRINT. 

Embora uma tela possa ser formata- 
da muito bem com o auxílio dos coman- 
dos PRINTO (nos TRS) ou LOCATE 
(no MSX), é conveniente recorrer à de- 
claração USING para formatação, que 
é sempre usada em conjunto com os co- 
mandos PRINT ou LPRINT. Os ele- 
mentos essenciais dessa declaração já fo- 
ram explicados em artigo anterior; as- 
sim, faremos aqui apenas uma nova ex- 
posição, por intermédio de um progra- 
ma simples de demonstração financeira 
para uma companhia fictícia. 


10 CLS 
20 PRINT” A DIRETORIA TEM O PR 
AZER DE ANUNCIAR O BALANCO P 





RELIMINAR 

30 PRINT: PRINT” 
DE ARRUELAS 5 
40 PRINT: PRINT: PRINT"O MAIOR FO 
RNECEDOR DO MUNDO DE”: PRINT 

50 CS(0)="MD.345 - AZUIS” :CS(1) 
="MD.B97 - VERDES" :C3(2)="MD.91 
2 - AMARELAS" :CS(3)="MD.989 - UV 
ERMELHAS” 

60 FOR K=0 TO 3 
65 X5=" ARRUELAS 
) 

70 PRINT TAB(1I6-LEN(XS)/2);X5$ 
80 NEXT 

90 FOR K=1 TO 7000:NEXT:CLS 

110 PRINT €12," JANEIRO”: PRINT € 


DE 1986 DA 


FABRICA ACME 


"+MIDS (CS (K).10 


44," ===———- : 

120 PRINT:PRINT”"PRECO MEDIO (AT 
ACADO) " 

130 A$=" * t” :BS=" x 
*544. 44" 


140 PRINT: PRINTUSING AS;C3(0):: 
PRINTUSING B$;12.715265 

150 PRINTUSING AS;CS(1);: PRINTU 
SING BS;3.7363141 

160 PRINTUSING AS;CS(2);:PRINTU 
SING B$;10.35824221 

170 PRINTUSING AS;CS(3);:PRINTU 
SING B$;.5163733 

180 PRINT €416,USING"LUCRO TOTA 
L $444,444.44";374241.5353 


Esse programa, tal como está, fun- 
cionará bem apenas no micro TRS- 
Color. Para adaptá-lo para o TRS-80, 
faça as seguintes alterações: 


70 PRINT TAB(32-LEN(CS(K))):CS( 
K) 

90 FOR K= 
110 PRINT 
TT o E Dies Esaf Eron na 

180 PRINT 8832, USING"LUCRO BRU- 
TO Sttt, ht. 44";374241.5353 


4 


10 SCREENI:WIDTH32:CLS 

20 PRINT” A DIRETORIA TEM O PR 
AZER DE ANUNCIAR O BALANCO P 
RELIMINAR DE 1986 DA 


1 TO 4000:NEXT:CLS 


30 PRINT: PRINT” FABRICA ACME 
DE ARRUELAS ” 

40 PRINT: PRINT:PRINT"O MAIOR FO 
RNECEDOR DO MUNDO DE”: PRINT 

50 CS(0)="MD.345 - AZUIS" :CS(1) 
="MD.B97 - VERDES” :C3(2)="MD.91 
2 - AMARELAS" :CS(3)="MD.989 - UV 
ERMELHAS” 

60 FOR K=0 TO 3 
65 XS="ARRUELAS "+MIDS(CS(K),10 
) 

70 PRINT TAB(16-LEN(X3)/2):;X5 
B0 NEXT 

90 FOR K=1 TO 7000:NEXT:CLS 

110 PRINT TAB(12);" JANEIRO”: PRI 
NT TAB(12);"uusssanl 


120 PRINT: PRINT"PRECO MEDIO (AT 
ACADO) " 

130 AS=" / !":B9=" * 
Ast. 44" 


140 PRINT: PRINTUSING AS:;CS(0);: 
PRINTUSING -B$;12.715265 

150 PRINTUSING AS;CS(1);:PRINTU 
SING B$;3.7363141 

160 PRINTUSING AS;CS(2);:PRINTU 
SING B$;10.35824221 

170 PRINTUSING AS;CS(3);: PRINTU 
SING B3;.5163733 

180 PRINT 68416, USING" LUCRO TOTA 
L S444,444.44";374241.5353 


As linhas 10 a 90 exibem na tela o ti- 
tulo do relatório, formatado de manei- 
ra simples com declarações PRINT. A 
linha 170 é particularmente interessan- 
te porque mostra como uma série de 
mensagens pode ser centrada na tela, 
usando-se TAB, que é calculado de acor- 
do com o comprimento da mensagem. 

A seção do programa que vai da li- 
nha 100 à linha 180 demonstra as carac- 
terísticas da declaração do PRINT 
USING. A linha 130 define A$, que po- 
de ser usada para mostrar as primeiras 
seis letras das cadeias alfanuméricas de- 
finidas na linha 50. O comprimento da 
cadeia é o número de espaços entre si- 
nais % (no MSX o sinal usado é a bar- 
ra inversa), mais 2. Assim, O compri- 
mento do cordão de saída levará em 
conta o espaço ocupado pelos sinais Yo. 

B$ define o formato da saída numé- 
rica. A função principal da formatação 
numérica é alinhar uma coluna de nú- 
meros, padronizando-os para que te- 
nham a mesma quantidade de algaris- 
mos antes e depois do ponto, que sejam 
tabulados tomando o ponto como refe- 
rência, e assim por diante. 

O número de digitos a ser mostrado 
é definido pelo símbolo &. Inserindo- 
se o ponto decimal na cadeia de * 
define-se a sua posição. Examine a linha 
130 do programa: B$ serve para impri- 
mir números com dois dígitos antes do 
ponto e dois dígitos depois. 

Além disso, se o sinal $ for colocado 
à esquerda dos sinais *, ele será impres- 
so nessa posição em todas as saídas, e 
será usado para indicar quantias mone- 
tárias. 

O símbolo **antes dos sinais $ e * 
fará com que os espaços em branco à es- 
querda do campo definido para o valor 
numérico seja preenchido automatica- 
mente por asteriscos. Este é um recurso 
usado no preenchimento de cheques. No 
campo de saída definido na linha 130 fo- 
ram empregados quatro sinais diferen- 
tes. Outras combinações são possíveis. 

A linha 140 imprimirá os seis primei- 
ros caracteres de C$(0), seguidos por oi- 
to espaços e um sinal de $. Note que a 
declaração USING utiliza a cadeia de 
formatação armazenada previamente 
em B$. O número a ser mostrado nesse 
exemplo será, portanto, arredondado, 





de modo a aparecer apenas com duas ca- 
sas depois do ponto. 

A linha 150 imprimirá os seis primei- 
ros caracteres de A$, seguidos de 
*$3.74, pois sobrou um espapo em bran- 
co na formatação, que será preenchido 
por um asterisco. A linha 160 é similar 
à linha 140. Finalmente, a linha 170 im- 
primirá o número como *$0.52. 

Se os números a imprimir forem mui- 
to grandes, pode-se recorrer a três tipos 
de formatação. A mais simples consiste 
na utilização de uma cadeia longa de si- 
nais &. Por outro lado, para visua- 
lizá-la melhor, podemos empregar vir- 
gulas para separar os dígitos em grupos 
de três (no Brasil usariamos pontos, mas 
os interpretadores BASIC existentes em 
nossas máquinas seguem o padrão nor- 
te-americano). Isso foi feito na linha 180 
do programa, A terceira alternativa é re- 
correr à forma exponencial. Para ver co- 
mo ela funciona, substitua a linha 180 
por: 


180 PRINT 6832, USING"LUCRO BRU- 
TO $44.44"""77;374241.5353 


Faça a modificação pertinente no 
programa para o MSX. Os quatro sinais 
de 1 que aparecem no formato indicam 
o tamanho do campo do expoente. Os 
sinais & são interpretados, então, co- 
mo o formato da mantissa. 

A declaração USING pode ainda ser 
misturada com um PRINTO na mesma 
linha (computadores TRS-80 e TRS- 
Color) e várias USING podem ser colo- 
cadas na mesma linha. Isto dá grande 
flexibilidade na programação de telas. 

Outro caractere de programação de 
formato usado com a USING e ao qual 
não nos referimos antes é o ponto de ex- 
clamação (!). Ele faz com que o progra- 
ma imprima apenas o primeiro caracte- 
re de uma cadeia alfanumérica. Tente al- 
terar a linha 130 do programa: 


130 AS=" 
MAS de” 


Alguns programas utilizam a função 
VAL seguida de um número entre aspas, 
em vez de um número normal. Essa for- 
ma serve, muitas vezes, para economizar 
espaço. O computador normalmente re- 
corre a bytes de memória para armaze- 
nar um número, o que o leva a desperdi- 
car memória em certas aplicações criti- 
cas. Assim, se você puser um número en- 
tre aspas e usar a função VAL para 
convertê-lo em seu valor numérico, po- 
derá armazená-lo como se fosse um cor- 
dão. No caso de números curtos (ou se- 
ja, com menos de cinco dígitos), esse pro- 
cedimento levará a uma economia de me- 
mória: um byte para cada dígito, um pa- 
ra cada aspa, e um para a função VAL. 


|": B$=" 





LINHA 


Apple Il + 

Apple Il+ 
Apple Il + 
Apple Il + 
Apple Il + 
Apple ll + 
Apple + 
Apple ll+ 
Apple Il + 
Apple + 
Apple + 
Apple + 
Apple ll+ 
Apple ll + 
Apple ll+ 
Apple ll + 
Apple Il + 
Apple ll + 
Apple Il + 
Apple + 
Apple Hl+ 
Apple Il + 

Apple Il + 
Apple ll + 
Apple ll + 
Apple ll + 
Apple Il + 
Apple ll+ 
Apple lle 

Apple Ile 


Apple Ile 
MSX 


MSX 


FABRICANTE Po 


Appletronica 
CCE 

CPA 

CPA 

Digitus 
Dismac 
ENIAC 
Franklin 
Houston 
Magnex 
Maxitronica 
Maxitronica 
Maxitronica 
Maxitronica 
Microcraft 
Milmar 
Milmar 
Milmar 
Omega 
Polymax 
Polymax 
Spectrum 
Spectrum 
Suporte 
Sycomig 
Unitron 
Victor do Brasil 
Victor do Brasil 
Microcraft 
Microdigital 
Spectrum 
Gradiente 
Sharp 


MODELO 


Thor 2010 
MC-4000 Exato 
Absolutus 


| Polaris 


DGT-AP 
D-8100 
ENIACII 
Franklin 
Houston AP 
DMII 
MX-2001 
MX-48 

MX.64 
Maxitronic | 
Crafll Plus 
Apple Il Plus 
Apple Master 
Apple Senior 
MC-400 
Maxxi 

Poly Plus 
Microengenho | 
Spectrum ed 
Venus ll 

SICI 

API 

Elppa ll Plus 
Elppa Jr. 
Craftlle 
TK-3000 He 


"Microengenho ll 


Expert GPC4 
Hotbit HB-8000 


FABRICANTE 


Appletronica 
Apply 

CCE 

CPA 

CPA 
Codimex 
Digitus 
Digitus 
Digitus 
Dismac 
Dismac 
Dismac 
Dynacom 
ENIAC 
Engebras 
Filcres 
Pranklin 
Gradiente 
Houston 
Kemitron 
LNW 

LZ 

Magnex 
Maxitronica 
Maxitronica 
Maxitronica 
Maxitronica 
Microcraft 
Microcraft 
Microdigital 
Microdigital 
Microdigital 
Microdigital 


MODELO 


Thor 2010 
Apply 300 
MC-4000 Exato 
Absolutus 
Polaris 
CS-6508 
DGT100 
DGT-1000 
DGT.AP 
D-8000 
D-8001/2 
D-8100 
MX1600 
ENIACII 
AS+1000 
NEZ-8000 
Franklin 
Expert GPC1 
Houston AP 
Naja 800 
LNW-B0 
Color 64 
DMI 
MX-2001 
MX-48 
MX-64 
Maxitronic | 
Craft ll Plus 
Caftlle 
TK-3000 Ile 
TK-82C 
TK-83 

TK-85 


PAÍS 


Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 


Brasil 


Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
USA 

Brasil 
Brasil 
Brasil 
USA 

Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 


LINHA 


Apple Il+ 


o Sinclair ZX-81 


Apple ll + 
Apple + 
Apple ll + 
TRS-Color 
TRS-80 Mod.lil 
TRS-80 Mod.lil 
Apple + 
TRS-80 Mod.! 
TRS-80 Mod. 
Apple ll + 
TRS-Color 
Apple ll+ 
Sinclair ZX-81 
Sinclair ZX-81 
Apple ll + 
MSX 

Apple Il + 
TRS-80 Mod.lll 
TRS-80 Mod. | 
TRS-Color 
Apple Il + 
Apple Il + 
Apple Il + 
Apple Il + 
Apple ll + 
Apple Il+ 
Apple lle 
Apple lle 
Sinclair ZX-81 
Sinclair ZX-81 
Sinclair ZX-81 


Microdigital TK-90X Brasil 
Microdigital TKS-800 Brasil 


Sinclair Spectrum | 
TRS-Color 


Microdigital TK-90X 
Timex 2000 


Sinclair Spectrum 
Sinclair Spectrum Timex 


Sinclair ZX-81 
Sinclair ZX-81 
Sinclair ZX-81 
Sinclair ZX-81 
Sinclair ZX-81 
Sinclair ZX-81 
Sinclair ZX-81 
Sinclair ZX-81 
Sinclair ZX-81 
Sinclair ZX-81 
TRS-80 Mod.I 
TRS-80 Mod. | 
TRS-80 Mod. | 
TRS-80 Mod.! 
TRS-80 Mod.lil 
TRS-BO Mod.il 
TRS-80 Mod.lil 
TRS-80 Mod.lil 
TRS-80 Mod.lil 
TRS-80 Mod.lll 
TRS-80 Mod.lil 
TRS-80 Mod.IV 
TRS-80 Mod.IlV 
TRS-Color 
TRS-Color 
TRS-Color 
TRS-Color 
TRS-Color 


Apply 
Engebras 


“Filcres 


Microdigital 
Microdigital 
Microdigital 
Prologica 
Ritas 

Timex 
Timex 
Dismac 
Dismac 
LNW 

Video Genie 
Digitus 
Digitus 
Kemitron 
Prologica 
Prologica 
Sysdata 
Sysdata 
Multix 
Sysdata 
Codimex 
Dynacom 
LZ 
Microdigital 
Prologica 


Apply 300 
AS41000 
NEZ-8000 
TK-B2C 
TK-83. 
TK-85 
CP-200 
Ringo R-470 
Timex 1000 
Timex 1500 
D-8000 | 
D-8001/2 
LNW-80 
Video Genie | 
DGT100 
DGT-1000 
Naja 800 
CP-300 
CP-500 
Sysdata Ill 
Sysdata Jr. 
MX-Compacto 
Sysdata IV 
CS-6508 
MX-1600 
Color 64 
TKS-800 
CP-400 


Milmar 
Milmar 


“Milmar 


Multix 
Omega 
Polymax 
Polymax 
Prologica 
Prologica 
Prologica 
Prologica 
Ritas 

Sharp 
Spectrum 
Spectrum 
Spectrum 
Suporte 
Sycomig 
Sysdata 
Sysdata 
Sysdata 
Timex 
Timex 
Timex 
Unitron 
Victor do Brasil 
Victor do Brasil 
Video Genie 


Apple ll Plus 
Apple Master 
Apple Senior 
MX-Compacto 
MC-400 

Maxxi 

Poly Plus 
CP-200 

CP-300 

CP-400 

CP.500 

Ringo R-470 
Hotbit HB-8000 
Microengenho | 
Microengenho Il 
Spectrum ed 
Venus ll 

SICI 

Sysdata Ill 
Sysdata IV 
Sysdata Jr. 
Timex 1000 
Timex 1500 
Timex 2000 
APII 

Elppa Il Plus 
Elppa Jr. 

Video Genie! 


Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
USA 

USA 

USA 

Brasil 
Brasil 
Brasil 
USA 


Apple Il + 
Apple ll + 
Apple Il + 
TRS-B0 Mod.IV 
Apple Il + 
Apple Il + 
Apple l+ 
Sinclair ZX-81 
TRS-80 Mod.Ill 
TRS-Color 
TRS-80 Mod.lll 
Sinclair ZX-81 
MSX 

Apple Il+ 
Apple Ile 
Apple l+ 
Apple Il + 
Apple Il + 
TRS-80 Mod. 
TRS-80 Mod.IV 
TRS-80 Mod.lll 
Sinclair ZX-81 
Sinclair ZX-81 


Sinclair Spectrum 


Apple Il + 
Apple Il + 
Apple ll+ 
TRS-80 Mod. | 


EN an Tin macas 
é, UM LOGUTIE SI qi , 


“INPUT foi especialmente projetado para PN 
“ microcomputadores compatíveis com as sete principais Sinclair E TARSO TK:2000 MSX 


“linhas existentes no mercado. 
ba, então emp a sr 


“Os blocos de textos e listagens de programas po pera 
Eme renes E UM [06] Semp e 
; identificados por meio dos seguintes sim os: TRS-Color pune dl 


ED Dm me eee mo meto mm o em em 





WII] | Hi dd Ex 
E tê ms A ú 


1 Bi Ei E 
e E E 


PROGRAMAÇÃO BASIC 
Manchetes e letreiros. Como ampliar os caracteres da ROM. 
Montagem de letras garrafais com blocos gráficos. 


PROGRAMAÇÃO DE JOGOS 
Prossiga o jogo 4 Raposa e os Gansos, montando o programa e 
digitando as suas primeiras rotinas. 


PERIFÉRICOS 
As dificuldades que podem surgir quando se utiliza um 
acionador de disquetes e como evitá-las. 





